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PREFACE 


This  report  is  the  result  of  work  performed  under  Contract  No. 
DACW39-78-M-2676,  dated  3  April  1978,  between  the  U.  S.  Army  Engineer 
Waterways  Experiment  Station  (WES),  Vicksburg,  Miss.,  and  the  Westing- 
house  Word  Processing  Center,  Pittsburgh,  Pa.  The  work  concerned 
publishing  a  word  processing  version  of  the  Primer  on  Computer  Graphics 
Programming.  The  original  version  of  this  primer  was  developed  at  the 
U.  S.  Military  Academy. 

Contributors  to  the  document  were  Dr.  Richard  Puk,  Sandia  Labora¬ 
tories;  Dr.  Steve  Orbon  and  Mr.  Robert  Bruns,  Westinghouse ;  and  Mr. 

James  M.  Jones  II,  R&D  Software  Group,  Automatic  Data  Processing  (ADP) 
Center,  WES.  The  work  was  administered  by  the  ADP  Center,  WES,  as  part 
of  Computer  Technology-Engineering  Software,  Project  No.  4A762725AT11, 
and  the  Civil  Works  Computation  and  Analysis  Project  sponsored  by  the 
Office,  Chief  of  Engineers,  U.  S.  Army  (OCE).  OCE  points  of  contact 
were  Mr.  Robert  McMurrer  (DAEN-DSE)  and  Messrs.  Richard  Malm  and  Harry 
Hardin  ( DAEN- C WE- BA ) . 

Mr.  Jones  monitored  the  contract  under  the  general  supervision  of 
Dr.  N.  Radhakrishnan,  Special  Technical  Assistant  to  the  Chief  of  the 
ADP  Center,  WES,  and  Mr.  D.  L.  Neumann,  Chief  of  the  ADP  Center. 

Directors  of  WES  during  the  period  of  the  contract  and  the  prep¬ 
aration  of  this  report  were  COL  J.  L.  Cannon,  CE,  and  COL  N.  P.  Conover, 
CE.  Technical  Director  was  Mr.  F.  R.  Brown. 
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INTRODUCTION 

THE  GCS  RESEARCH  AND  DEVELOPMENT  PROJECT 


The  traditional  forms  of  computer  output  —  vast  piles  of  densely  printed  computer  list- 
jngS  _  often  leave  managers,  engineers  and  students  confused  and  frustrated.  Often 
the  information  one  wants  to  know  is  somewhere  in  the  computer  output,  but  not  in  a 
form  wherein  the  user  can  find  what  he  wants,  understands,  or  can  easily  assimilate 

For  years  the  computer  field  has  looked  forward  to  breaking  this  bottleneck  in  computer- 
human  communications  by  usmg  pictures  instead  of  printouts.  The  idea  is  not  new.  The 
first  stored-program,  electronic  computer  ever  designed  had  in  its  initial  design  an 
oscilliscope  which  was  supposed  to  give  graphic  displays  of  the  solutions  of  the  prob¬ 
lems  it  was  to  solve.  Working  two-way  man-to-computer-to-man  graphic  communica¬ 
tions  dates  back  at  least  10-20  years  to  the  early  Cape  Cod  and  SAGE  Air  Defense 
Systems  and  Ivan  Sutherland  s  early  SKETCHPAD  system.  Yet,  even  today,  the  amount 
of  graphic  output  that  most  computer  users  ever  see  is  limited  to  a  few  crude  barcharts  of 
graphs  produced  on  computer  printers,  or  possibly  a  pen-plot  made  with  an 
electromechanical  plotter.  Everyone  knows  about  computer  graphics  but  very  few 
actually  have  it,  and  even  fewer  make  good  use  of  it  in  their  normal  day-to-day  work. 

Computer  graphics  has  been  too  expensive.  The  hardware  has  been  expensive  but,  far 
worse  than  that,  the  software  has  been  actrociously  expensive.  It  has  been  expensive 
not  only  in  initial  cost,  but  also  in  its  tendency  to  be  both  highly  specialized  and  highly 
machine-dependent.  Only  specially  qualified  assembly  language  programmers  could 
work  on  it  and  it  would  work  on  only  one  machine.  Obviously  there  were  exceptions  to 
this.  Much  of  the  great  acceptance  with  pen-plotters  received  in  recent  years  came  from 
the  fact  that  they  permitted  the  use  of  FORTRAN  subroutines  which  could  be  used  by 
run-of-the-mill  FORTRAN  programmers  to  plot  simple  axes,  graphs,  etc.  The  more  recent 
success  of  the  TEKTRONIX  storage  tube  terminals  has  also  been  greatly  influenced  by 
the  fact  that  reasonably  good  user-accessible  software  is  available  for  such  devices. 

Today  we  are  in  a  period  of  rapid  improvement  in  availability  of  practical  computer 
graphics.  Timesharing  is  bringing  the  computer  out  of  the  warrens  of  the  computer 
center  and  into  the  offices  of  engineers,  managers,  classrooms,  academic  buildings,  and 
even  the  dormitories  of  academia  Timesharing  started  out  with  printing  terminals,  like 
the  teletype  but  the  era  of  timesharing  graphics  is  fast  approaching.  LSI  and  MOS  tech¬ 
nology  are  making  the  minicomputer  and  even  the  microcomputer  increasingly  attrac¬ 
tive.  Minicomputer-based  special  purpose  graphics  systems  are  now  very  successfully 
paving  their  own  way  in  a  number  of  tasks  such  as  in  the  layout  of  electronic  circuit 
boards  Coupled  with  small  mass  storage  devices  such  as  discs,  or  even  in  some  cases 
cassettes,  minicomputer-based  graphics  systems  have  considerable  capability,  in  spite 
of  serious  software  limitations  Today  they  seem  ready  to  burst  out  into  widespread  use. 
Perhaps  the  most  exciting  possibility  of  all  is  the  intelligent  terminal  connected  by  a 
communications  link  to  a  timesharing  or  other  large  computer  system.  In  such  an 
environment,  the  software  advantages  of  the  large  system  and  the  hardware  advantages 
of  the  small  system  can  complement  one  another,  and  can  —  potentially  at  least  gain 
the  advantages  of  both 

But,  enough  of  the  past  and  the  future.  What  can  GCS  offer  today  to  the  typical  user  — 
e.g.,  a  routine  FORTRAN  programmer  at  an  installation  which  has  a  limited  amount  of 
money  to  invest  in  graphics? 

The  USMA  Graphics  Compatibility  System  (GCS)  is  a  FORTRAN-based  computer 
graphics  system  designed  for  interactive  use  on  a  wide  variety  of  computer  graphics  ter¬ 
minals.  Due  to  its  comprehensive  and  modular  design,  GCS  provides  a  simplified  easy- 
to-learn  and  easy-to-use  approach  to  computer  graphics,  while  simultaneously  provid- 


ing  a  powerfull  tool  which  the  sophisticated 
highly  interactive  graphical  applications. 


programmer  may  use  for  demanding  and 


GCS  provides  compatibility  at  two  distinct  levels; 


A.  Cross-compatibility  from  one  computer  systems  to  another;  and, 
B  Cross-compatibility  between  computer  graphics  terminals. 


Cross-compatibility  from  one  computer  to  another  has  been  achieved  by  writinq  all  GCS 
s°  tware  m  FORTRAN,  with  emphasis  placed  on  strict  adherence  to  the  specifications 
established  by  the  American  National  Standards  Institute  (ANSI). 

Cross-compatibility  from  one  terminal  to  another  has  been  achieved  in  a  manner  which 
is  complete  y  transparent  to  the  user.  One  need  no  longer  be  concerned  about  the  prob¬ 
lems  of  taMonng  his  programs  for  a  given  graphical  device  -  GCS  provides  the  max¬ 
imum  capabilities  offered  by  the  various  terminals  in  order  to  satisfy  the  user’s  graphical 
requirements.  Device  independence  provides  the  user  with  the  option  of  preparing  and 
debugging  his  graphics  program  on  a  terminal  other  than  the  type  he  may  desire  for  final 
output  -  a  consideration  of  paramount  importance  for  installations  which  may  have  a 
limited  number  of  graphical  devices  available  at  any  given  time. 


It  should  be  emphasized  that  GCS  is  not  just  another  collection  of  unrelated  graphics 
subroutines  —  it  is  a  unified  system  which  provides  the  user  with  the  flexibility  to  per¬ 
form  his  tasks  at  any  level  of  involvement  that  he  desires.  Because  of  this  unique  man/ 
software  relationship,  GCS  can  also  be  thought  of  as  “user  compatible,"  and  it  is  in  this 
last  facet  of  compatibility  that  GCS  unveils  its  true  potential.  Individuals  who  would  nor¬ 
mally  dismiss  graphics  for  their  particular  applications  are  now  provided  with  an  alterna¬ 
tive  High-level,  composite  routines  are  provided  to  perform  relatively  complex  but  fre- 
qucntly  required  tasks  such  as  the  preparation  of  complete  graphs  and  histograms. 
Flexibility  and  adaptability  to  the  needs  of  the  more  sophisticated  user  are  achieved  by 
a  lowing  such  a  user  to  control  the  various  GCS  options  which  are  present  to  standard 
default  conditions  for  the  unsophisticated  programmer.  Users  of  all  disciplines  may  feed 
equally  comfortable  with  GCS,  since  they  are  required  to  interact  only  at  their  particular 
level  of  graphics  involvement. 


Toe  GCS  development  was  a  response  to  a  specific  need.  In  the  winter  of  1971-72  it 
was  decided  that  the  U  S.  Military  Academy  would  teach  a  series  of  courses  to  senior 
R&D  managers  dealing  with  computer  assisted  design-engineering,  with  special 
emphasis  upon  interactive  computer  graphics. 

it  was  decided  that  the  course  would  be  heavily,  hands-on  oriented  and  that  USMA 
would  demonstrate  practical  applications  of  graphics  from  each  Math-Science- 
Engineering  academic  department  area  programmed  by  a  faculty  member  from  that 
area  It  was  also  decided  that  these  applications  should  be  spread  over  at  least  four 
types  of  graphics  output: 

1.  Printer-plot  graphics  -  bo^h  in  batch  mode  and  from  a  timeshare  terminal 
2  Pen-plot  graphics  —  both  interactive  and  non-interactive. 

3.  Static  or  add-on  CRT  graphics  —  storage  tube  display. 

4,  Dynamic  CRT  graphics  -  refresh  tube  display. 

The  Army  Material  Command  (AMC)  was  to  supply  adjunctive  graphics  equipment  to  add 
to  the  existing  USMA  Academic  Computer  Center  timesharing  systems:  USMA  was  to 
j.  ro/ide  the  teaching  faculty  and  develop  both  the  educational  software  and  the  required 


IV 


computer  software;  the  U.S.  Army  Computer  Systems  Command  was  to  provide  a  Liaison 
Officer  who  would  assist  in  the  computer  software  development. 


The  course  was  to  begin  in  July  1 972.  The  new  graphics  equipment  would  not  be  availa¬ 
ble  until  April  or  May.  Terminal  equipment  would  arrive  so  late  that  programs  to  run  on 
one  type  of  graphics  terminal  might  have  to  be  checked  out  by  testing  it  on  another  type 

of  terminal. 

Tha  academic  department  faculty  members  would  not  be  available  to  work  on  the  project 
until  the  start  of  June.  Most  of  them  were  reasonably  competent  FORTRAN  programmers 
with  little,  if  any,  prior  experience  with  graphics  —  but  most  of  them  would  have  time  o 
take  a  6-8  lesson  course  in  graphics  during  their  lunch  periods  once  a  week  in  the  spring 

semester. 


In  order  to  meet  this  near-impossible  set  of  constraints,  a  system  was  devised  which 
could  be  both  quickly  and  easily  learned  by  faculty  members  with  varied  levels  of 
FORTRAN  experience  (and,  in  many  cases,  no  FORTRAN  experience)  and  could  be  built 
and  checked  out  in  a  tremendous  hurry,  using  no  more  than  one  or  two  full-time  pro¬ 
grammers,  with  part-time  assistance  of  half  a  dozen  or  so  other  programmers 

GCS  (Version  1.0)  was  the  response  Somehow  it  was  developed  in  time.  It  sputtered, 
wheezed,  ran  slowly,  did  not  have  very  many  sophisticated  options,  and  had  embedded 
in  it  various  pieces  of  proprietary  software  which  were  not  releasable  to  others.  was 
well  accepted,  however,  by  its  users.  It  met  the  seminar  requirements  and  was  widely 
used  during  the  Academic  Year  1972-73,  with  a  great  deal  of  useful  feedback  being 
obtained  A  year  later,  in  the  late  spring  of  1 973,  GCS  version  2  0,  rebuilt  from  the  bottom 
up.  became  operational.  It  still  ran  the  same  program,  with  occasional  minor  changes 
suggested  by  users  as  human  engineering  improvements  It  was  faster,  supported  more 
advanced  options,  was  much  more  solid,  and  no  longer  contained  even  the  most  remote 
trace  of  any  proprietary  software  in  its  modules. 


In  October  1 973,  GCS  had  progressed  to  the  stage  that  it  was  ready  to  release  for  field 
testnq  by  other  agencies.  As  a  result  of  this  field  testing,  some  interesting  and  valuable 
suggestions  were  incorporated  into  GCS.  In  January  1975,  the  U.S.  Military  Academy 
was  no  longer  able  to  support  GCS  and  the  responsibility  for  maintenance,  distribution, 
and  future  development  was  transferred  to  the  U  S.  Army  Corps  of  Engineers  Waterways 
Experiment  Station 
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CHAPTER  I 


IMPORTANT  TECHNICAL  CONCEPTS  AND  CONVENTIONS 


In  order  to  understand  and  use  a  system  as  powerful  and  versatile  as  GCS,  the  user 
should  be  aware  of  certain  basic  technical  concepts  and  conventions. 


Relationship  of  GCS  to  FORTRAN 

The  Graphics  Compatibility  System  (GCS)  is  a  package  of  inter-related  subroutines  writ¬ 
ten  in  ANSI  FORTRAN.  In  order  to  produce  graphics  output,  a  FORTRAN  program  is  writ¬ 
ten  to  perform  whatever  computations  and/or  graphics  manipulations  are  needed  to  pro¬ 
duce  the  desired  image.  Embedded  in  the  program  are  calls  to  GCS  subroutines  to  han¬ 
dle  the  graphic  display  and  interaction,  if  relevant. 

Under  normal  conditions,  all  input-output  between  the  computer  and  graphics  devices 
such  as  plotters  and  terminals  will  be  handled  via  calls  to  GCS  routines,  without 
recourse  to  system  dependent  routines. 

The  programming  conventions  of  GCS  are  identical  to  those  of  ANSI  FORTRAN  except 
that  the  use  of  GCS  creates  additional  reserved  names.  All  GCS  subroutines  designed 
for  User  use  are  FORTRAN  subroutines  beginning  with  the  letter  U.  The  GCS  system 
also  includes  additional  internal  subroutines  not  intended  for  availability  to  users  which 
always  begin  with  the  letters  GCS.  Thus  the  user,  to  avoid  potential  confusion  and/or 
conflict  between  his  program  and  GCS,  should  avoid  creating  his  own  subroutines  with 
names  beginning  with  either  U  or  GCS. 

All  numbers  used  as  calling  parameters  are  passed  to  GCS  as  real  numbers,  even  in 
situations  where  they  represent  integers 

Graphics  Status  Area  (GSA)  -  Preset  Modes  and  Parameters 

In  order  to  keep  continuous  track  of  many  items  of  information  relevant  to  graphics 
activities  such  as  where  the  beam  (or  pen)  is  currently  located,  what  portion  of  the 
screen  (or  plotting  area)  is  currently  within  limits  and  what  portion  is  currently  off  limits 
for  drawing,  what  portion  is  within  limits  and  what  portion  is  off  limits  for  textual  material, 
etc,  a  labelled  COMMON  area  GSA  is  established.  The  GSA  common  block  also  keeps 
track  of  the  user’s  current  choice  from  among  the  list  of  available  options  which  define  or 
mode  of  operation  of  the  system. 

When  one  starts  a  GCS  program,  the  user’s  start  routine  (USTART)  automatically  sets  all 
options  to  a  standard  initial  condition  rectangular  coordinate  system,  absolute  (rather 
than  relative  or  incremental),  plotting  angles  to  be  measured  in  degrees,  lines  to  be 
drawn  routinely  as  solid  lines  without  special  attributes,  etc. 

The  following  is  a  sample  program  which  illustrates  the  use  of  the  GCS  package  to  pro¬ 
duce  graphics  output. 

DIMENSION  X(2),Y(2) 

A  =  75. 

B  =  75 
X(1)  =  25. 

Y(1 )  =  75. 

X(2)  =  75. 

Y(2)  =  25  COMMENTS 


i-1 


CALL  USTART 

‘A’ 

CALL  UOUTLN 

■B’ 

CALL  UMOVE  (25., 25.) 

•c 

CALL  UPEN  (A,B) 

V 

CALL  UMOVE  (X(1),Y(1)) 

CALL  USET  (‘DASH’) 

•F 

CALL  UPEN  (X(2),Y(2)) 

CALL  UEND 

‘G’ 

STOP 

END 

COMMENTS: 

A.  The  first  GCS  call  must  be  to  USTART,  a  subroutine  to  initialize  the  status  of  the 
system 

B:  UOUTLN  will  be  explained  in  Chapter  III 

C:  All  user  oriented  GCS  subroutines  begin  with  the  letter  ‘IT  and  have  easy  to  remem¬ 
ber  names. 

D:  Simple  pen  movements,  such  as  visible  UPEN’s  and  invisible  UMOVE’s,  are  depen¬ 
dent  upon  the  status  of  the  system  for  their  resulting  actions. 

E:  All  arguments  to  GCS  subroutine  calls  are  either  real  or  character. 

F.  The  status  of  the  system  can  be  modified,  as  in  this  case  with  USET  in  order  to 
obtain  a  wide  range  of  output  types 

G.  The  last  GCS  call  must  be  to  UEND,  a  subroutine  which  performs  any  termination 


GCS  CONVENTIONS 


Easy  to  remember  English-language  descriptions  rather  than  arbitrary  codes  are  used  to 
specify  modes  For  example,  if  one  is  in  the  preset  condition  and  wishes  to  draw  in  polar 
coordinates  with  angles  measured  in  radians  and  lines  drawn  as  vectors  (solid  lines  with 
arrowheads),  one  would  merely  use  the  following  l/ser  mode-Setting  commands: 


CALL  USET  (‘POLAR’) 
CALL  USET  (’RADIANS’) 
CALL  USET  (‘VECTOR’) 


To  revert  to  drawing  in  rectangular  coordinates  with  plain  lines,  the  commands  would  be: 


CALL  USET  (‘RECTANGULAR’) 
CALL  USET  (‘LINE’) 


atoHhA  rth°Le’*  h6rf  a?  h0Se  modes  whlch  rec'uire  an  additional  parameter  to  be  associ- 
nf  data  ran  hani  h  'I  ^  For  examP|e,  the  preset  polynomial  degree  to  which  a  set 

nl?a  ho  rn  de.f'  6d  LJSmgthe  subroutine  ULSTSQ)  is  5  If  the  user  would  prefer  that  his 
manJ36  ^  °  3  p0  ynomial  of  de9ree  3.  he  would  use  the  User  Parameter  Setting  com- 


CALL  UPSET  (‘POLYNOMIAL  DEGREE’, 3.) 

Appropriate  call  T°  re-eS,ab"sh  ^  “iginal  polynomial  of  degree  5.  the 
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CALL  UPSET  ('POLYNOMIAL  DEGREE’, 5.) 


The  user  need  never  be  concerned  with  these  modes  of  parameters  unless  the  standard 
values  do  not  suit  him.  He  can  easily  change  them  to  values  he  wants.  Then  he  can 
forget  all  about  them  until  he  once  again  feels  a  need  to  change,  or  until  the  GSA  is 
reinitialized. 

The  underlying  principle  which  permits  the  use  of  this  option  setting  technique  is  the 
fact  that  the  GSA  is  in  fact  a  table  containing  all  of  the  options  necessary  to  define  an 
environment  in  which  graphics  activities  are  performed.  These  elements  are  preset  to 
values  which  reflect  the  most  commonly  performed  graphics  operations.  In  order  to 
make  a  particular  graphics  option,  only  one  element  of  the  table  is  altered 

It  will  be  normal  practice  in  this  manual  to  spell  out  completely  the  USET  or  UPSET 
option-names  in  full  even  if  the  name  is  very  long,  such  as  ‘DOUBLEARROW'  or 
‘DASHEDLINE’.  Doing  this  is  good  form  and  good  self-documentation  for  programs.  GCS 
will,  however,  analyze  only  the  first  4  characters  in  any  option-name  designator  If 
misspellings,  truncations  or  non-standard  wording  occurs,  the  corrupted  version  will  be 
fully  acceptable  to  GCS  provided  that  the  first  4  characters  of  the  character  string  are 
accurate. 

With  this  system  of  organization,  the  beginning  user— or  the  infrequent  user— is  insu¬ 
lated  from  the  adverse  effects  which  would  tend  to  overwhelm  the  beginner  in  a  system 
designed  to  provide  flexibility  for  advanced  and  sophisticated  users. 

7  he  user  need  be  aware  of,  and  pay  attention  to,  only  those  degrees  of  freedom  which  he 
specifically  wants  to  exploit  in  writing  his  program.  GCS  does  not  burden  the  user  with 
long,  complicated  calling-parameter  lists  and  complicated  arbitrary  codes.  It  can  use 
short,  easy-to-remember  and  easy-to-use  commands  convenient  to  both  unsophisti¬ 
cated  and  sophisticated  users. 


Information  in  This  Manual  and  Information  Excluded  From  It 

Some  idea  of  the  scope  and  range  of  the  subroutines  and  options  most  likely  to  be  of 
interest  to  the  beginning  user  may  be  found  in  Appendices  'A'  and  ‘B’  Sophisticated 
subroutines  and  options  such  as  those  involved  in  dealing  with  axis  transformations, 
storing,  manipulating  and  editing  pictorial  data  structures  have  been  completely  omitted 
from  this  manual.  Only  a  very  limited  subset  of  the  most  important  and  most  frequently 
used  subroutines  and  options  from  these  appendices  will  actually  be  described  in  detail 
and  discussed  in  this  manual  For  more  complete  programming  information,  see  the  sep¬ 
arate  ‘GCS  Programmer  Reference  Manual'. 
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CHAPTER  II 


GCS  PROGRAMMING  FUNDAMENTALS 


Initialization 

The  first  GCS  statement  in  any  program  must  be 

CALL  USTART 

Its  functions  are  many,  varied  and  important.  Some  of  them  are: 

A.  It  prepares  the  graphic  terminal  for  plotting.  In  doing  so,  it  clears  the  screen  (or,  in 
the  case  of  plotter,  requests  the  attendant  to  place  a  fresh  sheet  of  paper  on  the 
plotbed),  places  the  beam  (or  pan)  in  a  standard  position  — coordinates  (0,0)  at  the 
lower  left  corner  of  the  standard  plotting  area. 

B.  It  sets  all  mode  and  parameter  options  at  their  standard  default  values. 

In  the  standard  default  condition,  the  system  is  set  to  use  Cartesian,  absolute  coordi¬ 
nates  and  to  draw  solid  lines  in  a  large  square  area  contained  within  the  screen  or  plot¬ 
ting  bed  of  the  graphics  device  It  is  preset  to  accept  the  values  of  0.  <  X  <  1 00.  and  0. 

<  Y  <  100.  Additional  default  settings  by  USTART  will  be  mentioned  later. 


Reinitialization 

At  any  time  the  initial  default  conditions  can  be  restored  by: 

CALL  URESET 


Termination 

It  is  necessary  to  perform  various  file  and  buffer  termination  activities  upon  exit  from 
GCS  by  putting  as  the  last  GCS  command  of  any  program 

CALL  UEND 

Use  of  this  statement  will  insure  that  all  GCS  output  is  completed. 


Erasing  or  Starting  Off  Again  With  a  Clean  Sheet 

At  various  stages  in  running  a  program,  it  is  often  worthwhile  to  erase  everything  which 
has  been  drawn  or  printed  on  a  CRT  screen  or  to  ask  the  attendant  of  a  plotter  to  replace 
the  old  sheet  on  the  plotter  with  a  fresh  clean  one.  The  call  for  performance  of  this  func¬ 
tion  is: 


CALL  UERASE 

The  pen  position  remains  unchanged  when  erasure  occurs. 


Interactive  Versus  Batch 

In  a  batch  program  there  is  no  need  to  suspend  execution  in  order  to  view  multiple  plots 


prior  to  erasing  or  starting  off  again  with  a  clean  sheet.  In  an  interactive  program  an 
alarm  can  be  sounded  to  indicate  a  plot  is  done  by: 

CALL  UBELL 

Then  to  allow  viewing  of  the  plot  use 

CALL  UPAUSE 


Simple  Line-Drawing 

The  basic  command  in  GCS  for  drawing  lines  is 

CALL  UPEN  (X,Y) 

This  routine  moves  the  beam  (or  pen)  from  its  present  coordinate  position  (XO,YO)  to  a 
designated  new  location  (X,Y)  Pen  status  variables  in  the  Graphics  Status  Area  (GSA) 
determine  what  kind  of  line  (if  any)  is  drawn  as  a  result  of  this  movement. 

Until  some  sort  of  overt  action  is  taken  to  change  pen  status,  every  UPEN  movement  will 
cause  a  solid  line  to  be  drawn  (CALL  USTART  sets  pen  status  to  ‘LINE’.)  CALL  USTART 
also  sets  the  initial  beam  (pen)  position  to  (0,0).  Example  11-1  shows  a  simple  series  of 
CALL  UPEN  commands  which  will  draw  a  square  by  4  basic  pen-movements. 


Invisible  Lines 

If  one  wanted  to  draw  a  similar  square  starting  at  some  location  other  than  the  origin,  one 
needs  to  be  able  to  move  the  beam  or  pen  invisibly,  that  is,  without  drawing  any  line  One 
way  to  do  this  is  to  use  the  UMOVE  subroutine 

CALL  UMOVE  (X.Y) 

The  effect  is  identical  to  UPEN  except  that  no  line  of  any  kind  is  drawn  as  the  beam  or 
pen  moves  from  the  old  location  (X0,Y0)  to  the  new  location  (X,Y).  Example  11-2  shows  a 
program  which  draws  a  square  offset  from  the  origin  in  this  way.  In  this  example  we  have 
used  subroutine  UOUTLN  to  outline  the  square  we  are  drawing  within.  (UOUTLN  is 
further  explained  in  Chapter  III.)  The  default  origin  is  at  the  lower  left  corner  (0,0). 

Using  a  Pen  Status  Mode  Change  to  Draw  Invisible  Lines 

The  same  effect  as  a  call  to  UMOVE  can  be  achieved  by  changing  pen  status  mode  from 
its  default  condition  to  ‘NOLINE’  by  means  of  a  call  to  USET 

CALL  USET  (‘NOLINE’) 

causes  the  system  to  again  draw  a  line.  Example  11-3  shows  a  program  which  uses  this 
approach  to  draw  the  same  image  as  Example  11-2. 

Another  subroutine  that  is  considered  to  be  a  simple  line  drawing  subroutine,  capable,  if 
desired,  of  producing  an  invisible  line  as  in  the  example  above.  A  call  to 

CALL  UPEN1  (X,Y, ‘NOLINE’) 

enables  the  user  to  generate  an  invisible  line  to  (X,Y).  The  mode  will  be  established  as 
indicated  for  only  that  1  pen  movement  Effectively,  the  above  call  is  the  same  as  the 
CALL  UMOVE  (X.Y),  or  of  the  CALL  USET  (‘NOLINE’),  CALL  UPEN  (X.Y),  CALL  USET 


CLINE’)  sequence.  It  will  be  shown  throughout  this  text,  however,  that  the  chosen  mode 
can  be  one  of  many  different  line  modes  other  than  'NOLINE'. 


Pen  Status  Mode  Changes  Allow  Many  Kinds  of  Lines  to  be  Drawn 

The  UPEN  subroutines  of  GCS  can  draw  many  other  kinds  of  lines,  including  lines  in 
various  colors  (if  the  plotting  device  permits),  dashed  lines,  lines  with  tics  along  their 
length,  and  lines  of  all  these  types  with  various  kinds  of  terminating  characters  or  sym¬ 
bols.  The  number  of  permutations  of  line  types  and  terminators  to  be  used  at  the  end  of  a 
line  is  very  large.  Some  of  the  more  important  are  demonstrated  later  in  Chapter  VI. 
However  some  of  the  basic  options  are  considered  below. 


Alternate  Colors 

If  the  graphical  device  being  used  has  the  ability  to  display  lines  of  different  colors,  the 
user  can  request  that  any  subsequent  line  be  generated  with  one  of  seven  colors,  using 
CALL  USET  (OPTION),  where  OPTION  in  this  case  is  ‘WHITE,’  ‘BLACK,’  ‘RED,’  ‘GREEN,’ 
‘YELLOW,’  ‘BLUE,’  ‘MAGENTA,’  or  ‘CYAN.’ 

Many  terminals  such  as  the  Tektronix  do  not  have  a  multi-color  capability  and,  as  such 
use  the  default  color  BLACK.  Others,  including  most  pen  plotters,  allow  manual  color 
change  by  replacement  of  the  drawing  pen  by  one  of  another  color.  A  color  mode  change 
with  such  a  device  causes  the  plotter  to  position  itself  for  pen  replacement  and  a  color 
change  request  to  be  typed  out  on  the  control  device. 

Most  things  done  with  colors  can  be  done  on  devices  which  do  not  have  a  color 
capability  by  making  distinctions  through  the  use  of  plain  lines,  and  various  types  of 
dashed  lines,  arrow  lines,  ticmarked  lines  and  so  forth. 


Vectors  or  Lines  with  Arrowheads 


One  frequently  useful  set  of  options  is  the  arrowhead  options.  These  are  useful  for  draw¬ 
ing  vectors,  dimension  lines,  etc.  These  use  the  following  pen  status  modes' 


Pen  Status 


Description 


‘ARROW’ 

‘BACKARROW’ 

‘DOUBLEARROW’ 


Draws  a  "forward  vector”  with  its  arrowhead  at  (X,Y) 
Draws  “backward  vector”  with  its  arrowhead  at  (Xo,Yo) 
Draws  a  “dimension  line,”  i.e.,  a  line  with  arrowhead 
pointing  out  at  each  end. 


Example  11-4  demonstrates  the  use  of  the  'ARROW'  option. 


Tic  Marked  Lines 

Another  available  option  is  tic  lines,  i.e.,  lines  with  tic  marks  at  specified  intervals  along  it. 
Pen  status  may  be  set  to  draw  such  lines  by  using  a  call  to  USET 

CALL  USET  (‘TICLINE’) 


A  call  to  UPSET 

CALL  UPSET  (‘TICINTERVAL’, PARAMETER) 
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will  change  the  interval  along  a  ticline  at  which  the  tics  will  actually  be  placed.  For 
example: 


CALL  UPSET  (TICINTERVAL’,5.) 

CALL  UPEN1  (X,Y, TICLINE’) 

will  produce  a  ticline  to  (X,Y),  marked  off  with  tics  at  intervals  of  5  units  rather  than  the 
default  value  of  10.  Example  11-5  shows  several  ticline  options. 


Dashed  Lines 

One  can  draw  dashed  lines  by  going  to  the  'DASHLINE’  mode  with  a 

CALL  USET  ODASHLINE’) 

The  length  of  the  dashes  and  or  the  intervals  between  the  dashes  can  be  modified,  if 
desired,  with  a 


CALL  UPSET  CSETDASH’,  DASHCODE) 


the  resulting  dashed  line  will  be  repetitions  of  the  effect  caused 
the  digits  (0-9)  as  follows. 

by  the  combination  of 

DASHCODE 

Effect  on 

Effect  on 

Digit 

Visible  Units 

Invisible  Units 

1 

1 

2 

_ _ 

1 

3 

2 

4 

— 

2 

5 

5 

_ 

6 

— 

5 

7 

10 

_ 

8 

10 

9 

1  point 

— 

0 

— 

1  point 

The  specification  of  a  single  digit  for  DASHCODE  will  produce  standard  dashed 
(DASHCODE  —  1  -8)  or  standard  dotted  (DASHCODE  =  9)  lines.  If  the  user  desires  a 
non-standard  dashed  line  he  must  specify  a  DASHCODE  of  two  or  more  digits,  followed 
by  a  decimal  point  The  following  sequence: 

CALL  USET  (‘DASH’) 

CALL  UPSET  CSETDASH’, 76 ) 

CALL  UPEN  (X,Y) 

will  produce  for  example,  a  dashed  line  to  (X,Y)  consisting  of  1 0  visible  units,  5  invisible 
units,  1  0  visible  units  5  invisible  units,  etc  The  physical  length  of  a  unit  will  be  approx¬ 
imately  0.04  inches  for  the  majority  of  the  devices  Example  11-6  illustrates  several 
dashed  line  options.  The  number  of  possible  types  of  dashed  lines  is  limited  only  by  the 
word  length  of  the  central  computer. 


Polar  Coordinates 
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The  options  absolute  and  rectangular  (Cartesian)  are  established  as  defaults  by 
USTART,  because  most  drawings  use  this  simple  coordinate  system.  A  polar  coordinate 
system  provides  the  user  with  the  capability  of  referring  to  a  location  on  the  device  in 
polar  coordinates  (R, THETA)  rather  than  in  rectangular  coordinates  (X,Y).  Example  11-7 
illustrates  use  of  polar  plotting. 


Relative  (Incremental)  Plotting 

The  relative  coordinate  mode  interprets  the  coordinate  pair  of  the  pen  request  as  units 
relative  (positive  or  negative)  to  the  previous  pen  position  rather  than  as  an  absolute 
position.  Example  11-8  illustrates  use  of  relative  plotting. 


OOOOOO  O  o  ooo 


C  THIS  SAMPLE  PROGRAM  WILL  DEMONSTRATE  SIMPLE  LINE-DRAWING  BY 
C  DRAWING  A  SQUARE  BOX  IN  4  PEN  MOVEMENTS 
C 

C  INITIALIZE  GCS 

C  THIS  INITIALIZATION  SETS  GCS  TO  RECTANGULAR,  ABSOLUTE 

C  COORDINATES,  SOLID  LINE  PEN-DRAWING  MODE,  AND  INITIAL  PEN 
C  COORDINATES  (0,0) 

C 

CALL  USTART 
C 

NOTE  THAT  ALL  GCS  SUBROUTINES  (INCLUDING  THE  UPEN  ROUTINE  USE 
TYPE  REAL  CALLING  PARAMETERS  THUS  COORDINATES  MUST  BE 
ENTERED  AS  REAL  NUMBERS,  I.E.  WITH  DECIMAL  POINTS 

MOVE  PEN  TO  (0,50)  THEREBY  DRAWING  LINE  (0,0)  to  (0,50) 

CALL  UPEN  (0..50.) 


MOVE  PEN  TO  (50,50)  THEREBY  DRAWING  LINE  (50,50)  TO  (50,0) 
CALL  UPEN  (50,0.) 

MOVE  PEN  TO  (0,0)  THEREBY  DRAWING  LINE  (50,0)  TO  (0,0) 

CALL  UPEN  (0,0.) 

THIS  COMPLETES  DRAWING  OF  THE  SQUARE 


WRAP-UP.  FIRST  TERMINATE  GCS  BY  CALL  UEND.  THEN  STOP  EXECUTION 
WITH  STOP  FINALLY  END  FORTRAN  PROGRAM  WITH  END. 


CALL  UEND 

STOP 

END 


EXAMPLE  11-1 
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CALL  USTART 
CALL  UPEN  C0.. 
CALL  UPEN  <58 
CALL  UPEN  <50 
CALL  UPEN  <0. 
CALL  UEND 
STOP 
END 


50.  > 
,50. ) 

0.5 
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O  oo  oooo  ooo 


C  THIS  PROGRAM  DEMONSTRATES  USE  OF  THE  MOVE  COMMAND  TO  MOVE 
C  THE  PEN  INVISIBLY  WITHOUT  NEED  FOR  A  MODE  CHANGE  IT  DRAWS  A 
C  SQUARE  IDENTICAL  TO  THE  PREVIOUS  ONE 

C 

C  INITIALIZE 

C 

CALL  USTART 
CALL  UOUTLN 

MOVE  PEN  INVISIBLY  TO  COORDINATES  (45,45) 

CALL  UMOVE  (45  ,45 ) 

NO  CHANGE  HAS  BEEN  MADE  IN  PENSTATUS  SO  IT  IS  STILL  IN  THE  DEFAULT 
CASE  OF  SOLID  LINES.  DRAW  THE  SQUARE. 

CALL  UPEN  (45., 95.) 

CALL  UPEN  (95., 95.) 

CALL  UPEN  (95  ,45.) 

CALL  UPEN  (45., 45.) 

WRAP  UP 

CALL  UEND 
STOP 
END 


EXAMPLE  11-2 
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CALL  USTART 
CALL  UOUTLN 
CALL  UMOVE  C45.#4S.) 
CALL  UPEN  C46., 

CALL  UPEN  CSS., 

CALL  UPEN  CSS., 

CALL  UPEN  C4S., 

CALL  UEND 
STOP 
END 


o  o  o  o  o  o  o 


c 

c 

c 

c 

c 

c 

c 

c 


THIS  PROGRAM  DEMONSTRATES  THE  USE  OF  A  MODE  CHANGF  TO  Mnuc 
SQUAWK  OTHERWISE  it  draws  a 


FOLLOWING  INITIALIZATION  BY  USTART  IS  ALWAYS  NFPF^Anv  a  mom/-' 
LINeIaND  IMTAL  PEN POsSlONTO  COORdInaTES^O)00  °RAWING  S°UD 


CALL  USTART 
CALL  UOUTLN 


DRAwSgEATUNNE0LINE’  ™EN  MOVE  PEN  TO  COORDINATES  (45,451  WITHOUT 

CALLUSET  ('NOLINE') 

CALL  UPEN  (45., 45.) 

NOW  RESET  PENSTATUS  FOR  DRAWING  SOLID  LINES  AND  DRAW  SQUARE 

CALLUSET  ('LINE') 

CALL  UPEN  (45  ,95) 

CALL  UPEN  (95,95) 

CALL  UPEN  (95., 45) 

CALL  UPEN  (45., 45.) 

WRAP  UP 

CALL  UEND 

STOP 

END 


EXAMPLE  11-3 


ii-10 


CALL  USTART 
CALL  UOUTLN 
CALL  USET  C'NOLXNE'3 
CALL  UPEN  C4S . , 4S . i 
CALL  USET  C'LXNE'^ 
CALL  UPEN  C4S.,fiS.> 
CALL  UPEN  CSS.. 9S. > 
CALL  UPEN  CSS . ,  4S .  > 
CALL  UPEN  C4S.,4S.> 
CALL  LEND 


STOP 

END 
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ooooo  oooo 


c 

c 

c 

c 


SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  ARROW',  'BACKARROW'  AND 
DOUBLEARROW'  LINE  OPTIONS  AVAILABLE  THROUGH  USET/UPEN 
INITIALIZE  GCS,  AND  THEN  DRAW  THE  OUTLINE  OF  OUR  PLOTTING  AREA 


CALLUSTART 
CALL  UOUTLN 


MOVE  TO  VIRTUAL  LOCATION  (25,75),  SET  LINE  TYPE  TO  'ARROW'  AND 
DRAW  A  LINE  WHICH  EXTENDS  TO  VIRTUAL  LOCATION  (75,75). 


CALL  UMOVE 

CALL  USET  ('BACKARROW') 
CALLUPEN  (75  ,50.) 


MOVE  BEAM/PEN  TO  VIRTUAL  LOCATION  (25,25),  SET  LINE  TYPE  TO 
'DOUBLEARROW',  AND  THEN  DRAW  LINE  WHICH  EXTENDS  TO  VIRTUAL 
LOCATION  (75,25).  TERMINATE  THE  PROGRAM  AFTER  LINE  IS  DRAWN 


CALL  UMOVE  (25  ,25.) 

CALL  USET  ('DOUBLEARROW') 
CALLUPEN  (75., 25) 

CALL  UEND 

STOP 

END 


EXAMPLE  11-4 
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CALL  USTART 
CALL  UOUTLN 
CALL  UMOVE  C2S.,7E.> 

CALL  USET  C*  ARROWS 
CALL  UPEN  C75.,76.> 

CALL  UHOVE  C2E.,S0.> 
f?AI  i  USET  C  'BACKARROV  *  3 
CALL  UPEN  C75.,S0.> 

CALL  UMOVE  C2S . ,  25 .  ^ 

CALL  USET  C'POUBLEARROW* 

CALL  UPEN  C7E. ,25.5 

CALL  UENP 

STOP 

END 
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oooo  oooo  oooo  oooo 


c 

c 

c 

c 

c 


SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  TIC  LINE  GENERATION  PTIONS 
AVAILABLE  THROUGH  GCS.  INITIALIZE  GCS,  SET  PEN-STATUS  TO  THE  'TIC' 
MODE,  AND  THEN  DRAW  A  LINE  WHICH  BEGINS  AT  (0.,99.)  AND  TERMINATES 
AT  (1  00. ,99.)  USING  THE  DEFAULT  TIC  LENGTH. 


CALL  USTART 
CALL  USET  (  TICLINE  ) 
CALL  UMOVE  (0..99.) 
CALL  UPEN  (100., 99.) 


f^fniJEST  TICS  T0  APPEAR  AT  EVERY  5.0  VIRTUAL  UNITS,  AND  DRAW  A  LINE 

WHICH  STARTS  AT  (0  60.)  AND  ENDS  AT  (1  00., 60.). 


CALL  UPSET  ('TICINTERVAL'  5  ) 
CALL  UMOVE  (0,60.) 

CALL  UPEN  (100., 60.) 


IIJLC^T0  APPEAR  AT  EVERY  1  0.  VIRTUAL  UNITS,  AND  DRAW  A  LINE 
WHICH  STARTS  AT  (0  ,40.)  AND  ENDS  AT  (1  00  ,40  ). 


CALL  UPSET  ('TICINTERVAL', 1  0  ) 
CALL  UMOVE  (0,40.) 

CALL  UPEN  (100  .20) 


TICS  TO  APPEAR  AT  EVERY  20  VIRTUAL  UNITS,  AND  DRAW  A  LINE 
WHICH  STARTS  AT  (0  ,20.)  AND  ENDS  AT  (1  00. ,20.). 


CALL  UPSET  ('TICINTERVAL'  20  ) 
CALL  UMOVE  (0..20) 

CALL  UPEN  (100., 20) 


rT  TICS  T°  APPEAR  AT  EVERY  50  VIRTUAL  UNITS,  AND  DRAW  A  LINE 
WHICH  STARTS  AT  (0,1 .)  AND  ENDS  AT  (1  00  ,1  ). 


CALL  UPSET  ('TICINTERVAL'  50  ) 
CALL  UMOVE  (0..1.) 

CALL  UPEN  (100  1.) 

CALL  UEND 

STOP 

END 
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CALL  USTART 

CALL  USETT  C'TIC1_EN£*3 

CALL  UMOVEC0.,OO.3 

CALL  UPENCt00.,00.3 

CALL  UPSET  C*TICINTERVAL*,2.3 

CALL  UMOVE  C0.,S0.3 

CALL  UPEN  C 100., 80. 5 

CALL  UPSET  C*TICINTERVAL*,S.3 

CALL  UMOVE  C0.,00.3 

CALL  UPEN  C l 00 . , «0 . 3 

CALL  UPSET  C*TICINTERVALM0.3 

CALL  UMOVE  C0., 40.3 

CALL  UPEN  C 100., 40. 3 

CALL  UPSET  C'TICINTERVAL* , 20 . 3 

CALL  UMOVE  C0. ,20. 3 

CALL  UPEN  Cl 00., 20. 3 

CALL  UPSET  C'TICINTERVAL',S0. 3 

CALL  UMOVE  C0., 1 .3 

CALL  UPEN  C 100 . , l .3 

CALL  UEND 

STOP 

END 
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C 

C 

C 

C 

c 

c 


SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  DASHED  LINE  GENERATION 
OPTIONS  AVAILABLE  THROUGH  GCS.  INITIALIZE  GCS,  SET  THE  PEN-STATUS 
TO  ’DASH’  MODE,  AND  THEN  DRAW  A  LINE  WHICH  BEGINS  AT  (0  100)  AND 
TERMINATES  AT  (1  00., 1  00.).  THE  DEFAULT  VALUE  OF  DASH  WILL  BE  USED 


CALL  USTART 

CALL  USET  (’DASHLINE’) 

CALLUMOVE  (0,100.) 

CALLUPEN  (100., 100.) 

SET  THE  DASH  SPECIFICATION  TO  54  ,  AND  DRAW  A  LINE  THAT  STARTS  AT 
(0..80.)  AND  ENDS  AT  (1  00., 80.). 

CALL  UPSET  (  SETDASH',54.) 

CALL  UMOVE  (0..60.) 

CALLUPEN  (100,60.) 

SET  THE  DASH  SPECIFICATION  TO  52.,  AND  DRAW  A  LINE  THAT  STARTS  AT 
(0  ,60.)  AND  ENDS  AT  (1  00., 60 ). 

CALL  UPSET  CSETDASH’,52.) 

SET  THE  DASH  SPECIFICATION  TO  521  2.,  THEN  GENERATE  A  LINE  THAT 
STARTS  AT  (0.,40.)  AND  ENDS  AT  (1  00., 40 ). 

CALL  UPSET  (‘SETDASH’,521  2.) 

CALL  UMOVE  (0„40.) 

CALLUPEN  (100  ,40.) 


SET  THE  DASH  SPECIFICATION  TO  5434  ,  THEN  GENERATE  A  LINE  THAT 
STARTS  AT  (0..20.)  AND  ENDS  AT  (1  00., 20.). 

CALL  UPSET  CSETDASH’,5434.) 

CALLUMOVE  (0,20.) 

CALLUPEN  (100,20.) 

SET  THE  DASH  SPECIFICATION  TO  96.,  AND  DRAW  A  LINE  THAT  STARTS  AT 
(0„0.)  AND  ENDS  AT  (100., 0  ). 

CALL  UPSET  (’SETDASH’,96.) 

CALL  UMOVE  (0.,0.) 

CALLUPEN  (100..0.) 

CALLUEND 

STOP 

END 
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CALL 


CALL 


CALL 

CALL 

CALL 

CALL 


CALL 

CALL 

CALL 

CALL 

CALL 


CALL 

CALL 


CALL 

CALL 

STOP 

END 


USTART 

USET  C 'DASHLINE '5 
UMOVE  C0., 100.5 
UPEN  C 1 00 • # 100.5 
UPSET  C'SETDASH', 
UMOVE  C0 . , 00 . 5 
UPEN  <100. ,00. 5 
UPSET  C'SETDASH*, 
UMOVE  C0.,00.5 
UPEN  <100. ,00. 5 
UPSET  C'SETDASH', 
UMOVE  <0.,40.5 
UPEN  <100., 40.5 
UPSET  <*SETDASH*, 
UMOVE  C0 . , 20 . 5 
UPEN  <100. ,20. 5 
UPSET  C'SETDASH®, 
UMOVE  <0 . ,  0 . 5 
UPEN  <100. ,0.5 
UEND 


54.5 


52.5 


5212.5 


5434. 5 


06.5 
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c 

c 

c 

c 

c 

c 


THIS  PROGRAM  WILL  DEMONSTRATE  THE  USE  OF  POLAR  PLOTTING  BY 
DRAWING  A  QUARTER  OF  A  CIRCLE 

INITIALIZE  LINE  DRAWING  SPEED  OF  TERMINAL  TO  1  20  CHARACTERS  PER 


CALL  USTART 

CALL  UPSET  (‘SPEED’, 120) 

CALLUERASE 


INDICATE  PLOTTING  WILL  BE  IN  POLAR  COORDINATES  (R,0) 
CALL  USET  (‘POLAR’) 


PLOT  A  QUARTER  OF  A  CIRCLE  THAT  HAS  A  RADIUS  OF 
INCREMENTS  FROM  ZERO  TO  NINETY  DEGREES 


100  IN  NINE  DEGREE 


RADIUS=  1  00 
DO  100  1  =  1,1  1 
ANGLE  =  FLOAT  (1-1)  *9. 

100  CALL  UPEN  (RADIUS, ANGLE) 
CALL  UPEN  (0..0 ) 


TERMINATION 


CALLUEND 

STOP 

END 
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THIS  PROGRAM  WILL  DEMONSTRATE  THE  USE  OF  RELATIVE  PLOTTING 

INITIALIZE  LINE  DRAWING  SPEED  OF  TERMINAL  TO  1  20  CHARACTERS  PER 
SECOND 

CALL  USTART 

CALL  UPSET  ('SPEED', 1  20.) 

CALL  UERASE 

INDICATE  PLOTTING  WILL  BE  DONE  IN  RELATIVE  MODE  AND  DRAW  A  BOX 
1 00  DATA  UNITS  ON  A  SIDE 

CALL  USET  ('RELATIVE') 

CALLUPEN  (100  ,0.) 

CALLUPEN  (0.,100.) 

CALL  UPEN  (-100..0.) 

CALLUPEN  (0,-100.) 

TERMINATION 

CALL  UEND 

STOP 

END 


EXAMPLE  11-8 
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CHAPTER  III 


VIRTUAL  AND  DEVICE  GRAPHICS 


Outlining  the  Plotting  Area 

To  obtain  an  outline  of  the  area  within  which  all  graphical  activity  will  be  performed,  the 
programmer  may  invoke  the  GCS  subroutine  UOUTLN: 

CALL  UOUTLN 

Although  the  use  of  UOUTLN  certainly  is  not  necessary  for  most  graphical  applications, 
there  are  many  times  (particularly  during  the  learning  and  debugging  phases)  when  it  is 
useful  for  the  programmer  to  know  the  physical  boundaries  of  the  display  he  is  generat¬ 
ing 


The  Default  Case  and  Simple  Extensions 

The  examples  presented  so  far  have  assumed  the  use  of  variables  which  fall  into  the 
range  of  values: 


0  LE.  X  .LE.  TOO 
0  LE.  Y  LE.  100 

with  no  specific  control  over  where  on  the  screen  (or  plotting  bed)  the  pictures  are 
actually  drawn  This  is  the  default  case  established  by  USTART 

The  user  can  easily  change  the  range  of  permissible  values  to  the  ranges 

XMIN  LE.  X  LE.  XMAX 

YMIN  LE  Y  LE.  XMAX 


by  use  of  the  command 

CALL  UWiNDO  (XMIN, XMAX, YMIN.YMAX) 

This  permits  the  user  to  plot  anywhere  in  the  space  defined  by  the  the  four  parameters  in 
the  subroutine  call. 

The  values  of  the  four  parameters  may  be  any  FORTRAN  real  numbers  permissible  on 
the  particular  computer  in  use  (subject  only  to  the  restriction  XMIN  ,NE.  XMAX  and  YMIN 
,NE.  YMAX).  See  Example  111-1 . 


Increasing  and  Decreasing  Apparent  Picture  Size 

Through  the  use  of  UWINDO,  it  is  possible  to  increase  or  decrease  the  apparent  picture 
size  without  having  to  change  the  values  of  the  parameters  required  to  generate  the  dis¬ 
play  This  facility  effectively  provides  an  elementary  “zoom”  capability  which  may  be 
readily  utilized  under  GCS  Example  ill-2  illustrates  a  simple  six-step  “zoom-out”  by 
successively  increasing  the  window  specifications  prior  to  generating  each  of  the 
figures.  Note  that  the  pen  commands  required  to  draw  the  figure  are  identical  in  each  of 
the  six  steps,  and  that  the  only  dynamic  entity  is  the  window  itself.  Example  111-3  illustr- 
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ates  a  six-step  “zoom-in”  through  decrementing  the  virtual  window.  It  should  be  noted 
that  an  increase  in  the  window  specifications  decreases  the  apparent  picture  size 
(zoom-out)  and  that  a  decrease  of  the  window  specifications  yields  an  increase  in 
apparent  picture  size  (zoom-in). 


Distortion 


It  is  important  to  note  the  ratio  of  the  X-to-Y  window  specifications  when  defining  new 
window  boundaries,  as  ratios  other  than  unity  indicate  that  a  distorted  window  will  be 
contracted.  Example  111-4  illustrates  this  type  of  distortion  by  displaying  the  same  basic 
information  provided  by  Example  111-3  with  the  exception  that  non-square  windows  are 


Clipping  the  Edges  of  the  Picture 

Should  the  graphics  programmer  attempt  to  display  information  at  coordinate  locations 
which  lie  outside  of  the  window  boundaries,  GCS  will  “clip”  the  display  at  the  window 
boundaries  and  any  graphical  activity  attempted  outside  of  the  boundaries  will  not  be 
displayed.  Example  111-4  illustrates  the  clipping  feature  applied  to  a  simple  six-level 
zoom-m  ’.  We  will  again  return  to  the  topic  of  clipping  after  we  first  consider  the  con¬ 
cept  of  device  coordinate  addressing  under  GCS. 


Expanding  Flexibility  and  Capabilities:  Device  Mode 

When  desired,  GCS  provides  means  of  very  detailed  control  of  where  pictures  are  drawn 
on  the  physical  device.  This  may  be  done  by  going  to  the  ‘DEVICE’  mode  with  a 


CALL  USET  (‘DEVICE’) 

Thereafter  all  coordinates  are  measured  directly  in  device  measurement  units  from  the 
lower  left  corner  of  the  display  screen  or  plotting  bed. 

Several  optional  units  of  measure  are  available  on  the  display  screen  or  plotting  bed: 

CALL  USET  (  CENTIMETERS’)  causes  horizontal  and  vertical  distances  to  be 
measured  in  centimeters. 


(  FONTUNITS’)  causes  horizontal  measurement  in  units  of  the  width  of 
standard  alphabetic  characters  (usually  the  hardware  characters  for  the  device 
being  used)  and  vertical  measurement  in  units  of  the  height  of  the  alphabetic 


CALL  USET  (  PERCENTUNITS’)  cause  horizontal  measurement  in  units  of  a  per¬ 
centage  of  the  full  width  of  the  screen  or  plotting  bed  and  vertical  measurement  in 
units  of  one  percent  of  the  full  physical  height  of  the  screen  or  plotting  bed. 

CALL  USET  (  RASTERUNITS )  causes  horizontal  and  vertical  measurement  in 
terms  of  the  smallest  addressable  unit  for  a  particular  device 


CALL  USET  (‘INCHES’)  causes  the  horizontal  and  vertical  measurement  on  the  dis¬ 
play  to  revert  to  the  default  case  of  inches. 


See  Example  111-6 
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Viewporting:  A  More  Flexible  and  Advanced  Concept  of  Picture  Control 

Particular  locations  on  the  graphic  device  screen  or  plotting  bed  can  be  designated  a 
device  plotting  area  by  the  command 

CALL  UDAREA  (XMIN,XMAX,YMIN,YMAX) 

where  XMIN.XMAX.YMIN  and  YMAX  are  measured  in  the  currently  defined  units  of 
measure  in  the  device  mode:  inches,  centimeters,  percentunits,  fontunits  or  rasterunits 
Designation  of  this  device  plotting  area  has  no  effect  in  the  device  mode  However,  in  the 
virtual  mode,  either  by  default  or  by  executing  a  call  to  USET  (‘VIRTUAL’),  this  device 
plotting  area  is  at  the  heart  of  an  extremely  powerful  concept  of  graphic  control  known  as 
viewporting.  This  concept  is  most  easily  visualized  by  referring  to  the  next  figure  while 
following  the  description  below  and  the  sample  programs  and  their  output 

The  user  may  pick  any  scale  or  range  of  values  desired  to  plot  by  means  of  a  call  to 
UWINDO.  For  example,  to  plot  values  in  the  range  0  <  X  <  1 000  and  0  <  Y  <  1 000,  give 
the  command 


CALL  UWINDO  (0  ,1  000.  0  ,1  000.) 

A  call  to  UDAREA  is  used  to  specify  where  on  the  device  to  plot  data.  Then,  plot  in  a  4- 
inch  square  at  the  left  bottom  of  the  display  screen,  first  make  sure  that  the  unit  of 
measure  is  'INCHES'  then  give  the  command 

CALL  UDAREA  (0.,4.,0.,4) 

Next,  make  sure  that  the  mode  is  ‘VIRTUAL’  and  do  any  plotting  desired.  Any  values 
within  the  “virtual  window"  0  LE.  X,Y  .LE.  1 000  is  projected  into  the  corresponding  posi¬ 
tion  of  the  “device  plotting  area"  0  LE  X,Y,  .LE.  4.  For  example,  the  users  numeric 
values  of  Y  =  0  X  =  0  would  map  into  the  lower  left  corner  of  the  screen  or  plotting  bed 
at  position  X  =  0,  Y  =  0.  User  values  of  X  =  1  000,  Y  =  1 000  would  map  into  the  upper 
right  corner  of  the  4-inch  device  plotting  area  at  X  =  4,  Y  =  4.  User  values  of  X  -  250,  Y 
=  750  would  correspondingly  map  into  X  =  1,  Y  =  3. 

But  what  happens  if  the  user  tries  to  draw  a  line  to  a  point  outside  the  0  .LE.  X,  Y  LE 
1000  window,  for  example,  X  =*  250,  Y  -  1500?  Direct  projection  would  indicate  that 
such  a  line  would  rise  vertically  from  the  previous  point  to  a  point  X  =  1 ,  Y  —  6,  but  such 
a  line  would  pass  out  of  the  designated  device  plotting  area.  What  happens  is  that  the 
line  is  'clipped'  off  at  the  edge  of  the  window,  i.e.,  drawn  only  to  the  limit  of  the  window 
(which  is,  of  course,  also  the  limit  of  the  device  plotting  area)  Thus  if  any  other  lines  or 
textual  material  had  previously  been  put  into  adjacent  area  just  outside  the  designated 
plotting  area  it  would  be  protected  against  being  overwritten  by  data  which  was  con¬ 
sidered  to  be  irrevelant  because  it  fell  outside  the  expressed  values  of  plotting  interest 
specified  by  UWINDO  This  'clipping'  action  associated  with  mapping  from  a  virtual  win¬ 
dow  to  a  specified  device  area  adds  markedly  to  the  power  and  ease  of  pictorial  control 

in  GCS 

Here  are  some  examples  of  the  use  of  viewporting' 

A.  Convenient  Units:  the  imaginary  or  expandable  plotting  area  or  virtual  window 
can  be  defined  to  correspond  to  any  convenient  units  which  the  user  would 
like  to  think  in  terms  of 

B  Virtual  Window  Modification:  the  user  can  selectively  examine  different  areas 
of  an  entire  display  through  the  redefinition  of  the  viewport  followed  by  the  pen 
movements  of  that  entire  display.  This  idea  can  also  be  used  to  examine  a 
small  area  of  a  display  in  great  detail 
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HiffoCS  W.ndo.w  Modification:  the  same  display  can  be  generated  at  many 
different  locations  on  the  device  with  the  same  pen  movements  by  fixing  the 
viewport  and  changing  the  device  area,  as  illustrated  in  Example  111-7  An 
extension  of  this  device  area  modification  capability  allows  the  user  to  achieve 
distortions,  as  in  Example  111-8. 


Device  Independent  Plotting 


The  previous  examples  that  used  subroutine  UDAREA  were  written  for  a  Tektronix  401 0/ 
TUNITS^oi-113  A  device  independent  program  can  be  written  by  using  ‘PERCEN- 


CALL  USTUD  (ARRAY) 
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VIRTUAL  OR  IMAGINARY  SPACE  — — ^ 

r - 


USER  SPECIFIED 
VIRTUAL  WINDOW- 


A  USER'S  CALL  TO  PEN  MOVEMENTS  ARE  WITH 
RESPECT  TO  THE  USER  SPECIFIED  VIRTUAL 
WINDOW. 


THESE  PEN  MOVEMENTS,  IF  WITHIN  THE 
VIRTUAL  WINDOW  OF  THE  FIRST  DIAGRAM, 
WILL  ACTUALLY  APPEAR  WITHIN  THE  USER 
SPECIFIED  DEVICE  WINDOW  OF  THE  ABOVE 
DIAGRAM. 


DEVICE  WINDOW 


THIS  ACTUALLY  OCCURS  AS  THE  RESULT  OF  A  MAPPING  DIRECTLY  FROM  THE 
VIRTUAL  WINDOW  TO  THE  DEVICE  WINDOW. 


FOR  EXAMPLE,  THOSE  PEN  MOVEMENTS  WHICH 
FALL  WITHIN  THIS  PARTICULAR  VIRTUAL 
WINDOW . 


WILL  ACTUALLY  APPEAR  WITHIN 
THIS  PARTICULAR  DEVICE  WINDOW. 


Figure  3-1.  The  Viewporting  Concept 
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c 

c 

c 
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c 

c 

c 

c 

c 

c 
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c 

c 

c 
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c 

c 

c 

c 

c 

c 

c 

c 
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c 

c 
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THIS  PROGRAM  GENERATES  TWO  VECTORS  WITH  ARROW  LINES  AND  THE 
RESULTANT  VECTOR  WITH  A  DASHED  ARROW  LINE  ' 

initialize  the  system  and  generate  an  outline 


CALL  USTART 
CALL  UOUTLN 


REDEFINE  THE  VIRTUAL  WINDOW 
-50000  <  X  <  50000 
0.00001  <  Y  <  0  000 


CALL  UWINDO  (-50000  ,50000. ,0.00001 ,0.00005) 
DRAW  THE  TWO  VECTORS 


T0  THE  BEGINNING  point  of  the  first  vector  set  to  arrow 
MODE  AND  DRAW  VECTOR  FROM  (-40000., 0.00004)  TO  (40000., 0.00004) 


CALL  UMOVE  (-40000. ,0.00004) 
CALL  USET  ('ARROW') 

CALL  UPEN  (40000. ,0.00004) 


DRAW  SECOND  VECTOR  FROM  END  OF  FIRST  TO  (40000., 0.00002) 
CALL  UPEN  (40000  ,0.00002) 


MOVE  TO  BEGINNING  OF  VECTOR  SYSTEM 
CALL  UMOVE  (-40000. ,0.00004) 

SET  MODE  TO  DRAW  DASHED  ARROW  AND  DRAW  RESULTANT  VECTOR 

CALL  USET  ('DARROW') 

CALL  UPEN  (40000., 0  00002) 

TERMINATION 


CALL  UEND 

STOP 

END 


EXAMPLE  111-1 
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_  _  USTART 
CM  i  UOUTLN 

CA1  i  UWXNOO  C -50003. ,53000. ,0.00001 .0 -0000s ^ 

CA1  1  UHOVE  C—40030 . ,  0 . 300045 

CALL  USET  C* ARROW* 5 

CM  i  OPEN  C 40030 . , 0.003045 

CM  L  UP  EM  C 40030., 0.300025 

CM  I  UHOVE  C-40000., 0.330045 

CALL  USET  C*DARROW*5 

CALL  UP  EM  C 40000., 0.000025 

CALL  UEND 

STOP 

END 
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c 

c 

c 

c 

c 

c 


SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  ELEMENTARY  <5iy.i  f\/fi 
THATTWf  ocmoJUSTING  0NLY  the  VIRTUAL  WINDOW  BOUNDARIES  NOTE 

unchanqedN  commands  squired  to  draw  the  figure  remain 


ENTER  GCS  AND  SETUP  LOOP  TO  PERMIT  US  TO  ZOOM  AWAY  FROM  FIGURE. 

CALL  USTART 
DO  1  1=1,6 


ERASE  THE  SCREEN  AND  DEFINE  THE  BOUNDARIES  FOR  OUR  NEW  WINDOW. 

CALLUERASE 
BOUNDS=  1 00.*FLOAT(I) 

CALL  UWINDO  (0., BOUNDS, 0., BOUNDS) 

OUTLINE  THE  DEFAULT  DEVICE  PLOTTING  AREA,  AND  DRAW  THE  FIGURE. 

CALL  UOUTLN 
CALL  DRWFIG 
1  CONTINUE 


PROGRAMALL  GRAPHIC  ACTIVITY  AND  TERMINATE  THE  FORTRAN 


CALL  UEND 

STOP 

END 

SUBROUTINE  DRWFIG 


tcwi?f?A^T/LNE  USED  TO  GENERATE  A  PENTAGON  WITHIN  A  CIRCLF  A  PAl  iqf 


CALL  UCRCLE  (50., 50., 50.) 

CALL  UPLYGN  (50., 50., 5., 25  ) 

CALLUBELL 

CALL  UPAUSE 

RETURN 

END 


EXAMPLE  111-2 


iii-8 


CALL  USTART 

do  i  i  -  i,  e 

CALL  U  ERASE 

BOUNDS  -  100.  *  FLOAT  Cl  :> 

CALL  UWINDO  C0 . „ BOUW5S. 0 . , BOUNDS D 
CALL  UOUTLN 
CALL  DRW FIG 


1  CONTINUE 
CALL  UEND 
STOP 
END 

SUBROUTINE  DRW FIG 

CALL  UCRCLE  CS0.„S0.,Se.;> 

CALL  UPLYGN  C50., SO.  ,5.  ,25.  > 

CALL  U8Q-L 

CALL  UPAUSE 

RETURN 

END 
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C  SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  ELEMENTARY  SIX-LEVEL 

C  ZOOMING  BY  ADJUSTING  ONLY  THE  VIRTUAL  WINDOW  BOUNDARIES  NOTE 

C  THAT  THE  PEN  COMMANDS  REQUIRED  TO  DRAW  THE  FIGURE  REMAIN 
C  UNCHANGED. 

C 

ENTER  GCS  AND  SETUP  A  LOOP  TO  PERMIT  US  TO  ZOOM  TOWARD  FIGURE. 

CALLUSTART 
DO  1  1  =  1 ,6 

ERASE  THE  SCREEN  AND  DEFINE  THE  BOUNDARIES  FOR  OUR  NEW  WINDOW. 
CALLUERASE 

BOUNDS  =  50.-(5.*FLOAT(I-1)) 

CALL  UWINDO  (-BOUNDS, BOUNDS, -BOUNDS, BOUNDS) 

OUTLINE  THE  DEFAULT  DEVICE  PLOTTING  AREA,  AND  DRAW  THE  FIGURE. 

CALL  UOUTLN 
CALL  DRWFIG 
1  CONTINUE 

WRAP-UP  ALL  GRAPHIC  ACTIVITY  AND  TERMINATE  THE  FORTRAN 
PROGRAM. 


CALLUEND 

STOP 

END 

SUBROUTINE  DRWFIG 


SUBROUTINE  USED  TO  GENERATE  A  PENTAGON  WITHIN  A  CIRCLE  &  PAUSE 
SEVERAL  GCS  UTILITY  SUBROUTINES  ARE  UTILIZED  BUT  NOT  DESCRIBED 
AT  THIS  POINT.  (SEE  CHAPTERS  V  AND  VI  FOR  DETAILS). 


CALL  UCRCLE  (0..0..25.) 

CALL  UPLYGN  (0., 0  ,5.,  12.5) 

CALL  UBELL 

CALL  UPAUSE 

RETURN 

END 


EXAMPLE  111-3 
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CALL  USTART 
DO  I  !•  L  6 
CALL  UERASE 

BOUNDS  ■*  80.  -  CB.  »  FLOAT d- 1  5 5 

CAl  I  UWZNDO  C-BOUNDS, BOUNDS, -POUND®, BOUNDS? 

CALL  UOUTLN 

CALL  DRWFI9 

CONTINUE 

CALL  UEND 

STOP 

ENP 

subroutine  DRWFIO 
CALL  UCRCLE  C0.,0.,25.5 
CALL  UPLY9N  C0.,0.,B.,  I2.B5 
CALL  UBELL 
CALL  UPAUSE 


RETURN 

END 
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ooooo  ooo  oooo  ooo 


C  SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  ELEMENTARY  SIX-LEVEL 

C  ZOOMING  BY  ADJUSTING  ONLY  THE  VIRTUAL  WINDOW  BOUNDARIES.  NOTE 
C  THAT  THE  PEN  COMMANDS  REQUIRED  TO  DRAW  THE  FIGURE  REMAIN 
C  UNCHANGED.  ALSO  NOTE  THE  DISTORTION  DUE  TO  THE  EFFECT  OF  NON- 
C  SQUARE  WINDOWING. 

C 

C  ENTER  GCS  AND  SETUP  A  LOOP  TO  PERMIT  US  TO  ZOOM  TOWARD  FIGURE 
C 

CALL  USTART 
DO  1  1  =  1,6 

ERASE  THE  SCREEN  AND  DEFINE  THE  BOUNDARIES  FOR  OUR  NEW  WINDOW 
CALL  UERASE 

X BOUND  =  50  -(5.*FLOAT(l-1 )) 

YBOUND  =  50.-(2.5*FLOAT(I-1 )) 

CALL  UWINDO  (-XBOUND,XBOUND,-YBOUND,YBOUND) 

OUTLINE  THE  DEFAULT  DEVICE  PLOTTING  AREA  WE  HAVE  JUST  DEFINED 
THEN  DRAWTHE  FIGURE. 

CALL  UOUTLN 
CALL  DRWFIG 
1  CONTINUE 

WRAP-UP  ALL  GRAPHIC  ACTIVITY  AND  TERMINATE  THE  FORTRAN  PROGRAM 

CALL  UEND 
STOP 
END 

SUBROUTINE  DRWFIG 

SUBROUTINE  USED  TO  GENERATE  A  PENTAGON  WITHIN  A  CIRCLE  &  PAUSE 
SEVERAL  GCS  UTILITY  SUBROUTINES  ARE  UTILIZED  BUT  NOT  DESCRIBED 
AT  THIS  POINT.  (SEE  CHAPTERS  V  AND  VI  FOR  DETAILS). 

CALL  UCRCLE  (0..0..25.) 

CALL  UPLYGN  (0.,0  ,5., 12.5) 

CALL  UBELL 
CALL  UPAUSE 
RETURN 
END 


EXAMPLE  111-4 


CALL  U6TART 
DO  1  I  •  I,  « 
CALL  UERA8E 
XBOlIND  -  60.  - 
YBOUND  -  60.  - 


C6.  •*  FLOAT  Cl- 05 
C2.6  •*  FLOAT  Cl- 15  5_ 


ffiTuimoo*  C-XMu5d.  XBOUND. -YBOUND. YB0UND5 


CALL  UOUTLN 
CALL  DRWFX0 
1  CONTINUE 
CALL  UEND 
STOP 
END 

SUBROUTINE  DRWFI6 
CALL  UCRCLE  C0..6 
CALL  UPLY6N  C0..O 
CALL  UBELL 
CALL  UPAUSE 


260 

6. , 12.65 


RETURN 

END 
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C  SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  ELEMENTARY  SIX-LEVEL 
C  ZOOMING  BY  ADJUSTING  ONLY  THE  VIRTUAL  WINDOW  BOUNDARIES.  NOTE 
C  THATTHE  PENCOMMANDS  REQUIRED  TO  DRAW  THE  FIGURE  REMAIN 

C  UNCHANGED.  ALSO  NOTE  THE  CLIPPING  OF  THE  DISPLAY  AT  THE  WINDOW 

C  BOUNDARY. 

C 

C  ENTER  GCS  AND  SETUP  A  LOOP  TO  PERMIT  US  TO  ZOOM  TOWARD  FIGURE. 

C 

C  CALLUSTART 

C 

DO  1  1  =  1,6 

ERASE  THE  SCREEN  AND  DEFINE  THE  BOUNDARIES  FOR  OUR  NEW  WINDOW. 
CALLUERASE 

BOUNDS=  1  00.-(1  5.*FLOAT(l-1 )) 

CALL  UWINDO  (0., BOUNDS, O..BOUNDS) 

OUTLINE  THE  DEFAULT  DEVICE  PLOTTING  AREA  WE  HAVE  JUST  DEFINED 
THEN  DRAW  THE  FIGURE. 

CALL  UOUTLN 
CALL  DRWFIG 
1  CONTINUE 

WRAP-UP  ALL  GRAPHIC  ACTIVITY  AND  TERMINATE  THE  FORTRAN 
PROGRAM. 


CALLUEND 

STOP 

END 

SUBROUTINE  DRWFIG 


SUBROUTINE  USED  TO  GENERATE  A  PENTAGON  WITHIN  A  CIRCLE  AND 
PAUSE.  SEVERAL  GCS  UTILITY  SUBROUTINES  ARE  UTILIZED  BUT  NOT 
DESCRIBED  AT  THIS  POINT.  (SEE  CHAPTERS  V  AND  VI  FOR  DETAILS) 


CALL  UCRCLE  (50., 50., 50.) 

CALL  UPLYGN  (50., 50., 5., 25.) 

CALLUBELL 

CALLUPAUSE 

RETURN 

END 


EXAMPLE  MI-5 
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X  UfiTART 
DO  I  I  -  I.  6 
r?Ai  i  UERASE 

TOtWOS  -  180.  -  CIS.  *»  FLOAT  Cl- 1 DD 
CALL  UUINDO  C8.. BOUNDS. 8.. BOUNDS} 
CALL  UOUTLN 
CALI.  DRWFI8 
I  CONTINUE 
CALL  UEND 
STOP 
END 

SUBROUTINE  DRWFIC 

CALL  UCRCLE  C68. .68. .88. } 

CALL  UPLY8N  CB8..68..S..2S.} 

CALL  UBELL 
CALL  UPAUSE 
RETURN 
END 
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THIS  PROGRAM  GENERATES  A  SIMPLE  STREET  DIAGRAM  FOR  A  TEKTRONIX 
4010/4013  TERMINAL. 

INITIALIZATION,  DEVICE  MODE  ENTRY,  AND  OUTLINE  GENERATION 

CALL  USTART 
CALL  USET  ('DEVICE') 

CALL  UOUTLN 

GENERATION  OF  ROADS  WITH  THE  DEFAULT  CASE  OF  LINES  IN  TERMS  OF 
INCHES. 

CALL  UMOVE  (0.3, 2.7) 

CALLUPEN  (7  2,2.7) 

CALL  UMOVE  (7.2, 2.1) 

CALL  UPEN  (4.5, 2.1) 

CALL  UPEN  (2.5, 0.3) 

CALL  UMOVE  (1.7,0  3) 

CALLUPEN  (3.7, 2.1) 

CALLUPEN  (0.3, 2.1) 

GENERATION  OF  HOUSES  WITH  DASHED  LINES  IN  TERMS  OF  CENTIMETERS. 

CALL  USET  ('CENTIMETERS') 

CALL  USET  ('DASH') 

CALL  UMOVE  (12.5,5.0) 

CALL  UPEN  (15  5) 

CALL  UPEN  (15  2.5) 

CALLUPEN  (12  5.2.5) 

CALL  UPEN  (12.5,5) 

CALL  UMOVE  (5  ,7.5) 

CALL  UPEN  (1 1.3,7  5) 

CALL  UPEN  (11.3,10.0) 

CALL  UPEN  (5  ,10.) 

CALL  UPEN  (5  ,7.5) 

PERCENTUNItT  DIRECTI°N  REFERENCES  WITH  ARROW  LINES  IN  TERMS  OF 

CALL  USET  ('PERCENTUNITS') 

CALL  USET  ('ARROW') 

CALL  UMOVE  (10  ,80) 

CALL  UPEN  (20  ,80.) 

CALL  UMOVE  (15  ,75.) 

CALL  UPEN  (15., 85.) 

TERMINATION 


CALL  UEND 

STOP 

END 
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CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALI. 

CALL 

CALL 

r>i  i 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

STOP 

END 


USTAKT 

USET  C' DEVICE '5 
UOUTLN 

UMOVE  CO. 3, 2. 75 
UPEN  C7 .2,2.75 
UMOVE  C7 .2,2. 1 5 
UPEN  C4.6,2. 1 5 
UPEN  C2.6,0.35 
UMOVE  Cl. 7, 0.35 
UPEN  C3.7,2.15 
UPEN  CO. 3,2. 15 
USET  C' CENTIMETERS' 5 
USET  C'DASH'5 
UMOVE  02.6,6.05 
UPEN  06. ,6. 5 
UPEN  CIS. ,2.65 
UPEN  C12.6,2.55 
UPEN  02.6,6.5 
UMOVE  C6., 7 .65 
UPEN  Cl  1.3,7. 65 
UPEN  Cl  1 .3, 10.05 
UPEN  C6.,10.5 
UPEN  C6.,7 .65 
U8ET  C'PERCENTUNITS'5 
USET  C' ARROW '5 
UMOVE  CIO. ,80. 5 
UPEN  C28 .,80.5 
UMOVE  06. ,76. 5 
UPEN  06. ,86. 5 
UEND 
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THIS  PROGRAM  GENERATES  THE  SAME  DISPLAY  AT  VARIOUS  LOCATIONS 
ON  A  TEKTRONIX  401 0/401 3  TERMINAL. 

INITIALIZATION  AND  OUTLINE. 

CALLUSTART 
CALL  UOUTLN 

FOR  EACH  OF  3  PASSES.  DEFINE  A  DEVICE  PLOTTING  AREA  AND  ‘DRAW’  THE 
GRAPH. 

DO  10  1=1,3 

IF0.EQ.1  )CALL  UDAREA  (2..5..0..3.) 

IF(I.EQ.2)CALL  UDAREA  (4.5, 7.4, 0.5, 3.5) 

IF(I.EQ.3)CALL  UDAREA  (2.5, 5.5, 2.5, 5.5) 

CALL  SUBROUTINE  TO  DRAW  GRAPH. 

10  CONTINUE 

TERMINATION 

CALLUEND 

STOP 

END 

SUBROUTINE  USED  TO  DRAW  GRAPH. 

SUBROUTINE  GRAFIT 
CALLUMOVE  (1  0  ,1  0..1 0.) 

CALLUSET  (‘LINE’) 

CALLUPEN  (90., 10.) 

CALLUMOVE  (20., 10.) 

CALLUPEN  (30., 70.) 

CALL  UPEN  (70., 70.) 

CALLUPEN  (80., 10.) 

CALLUMOVE  (30., 70.) 

CALL  USET  (‘DOUBLE ARROW’) 

CALLUPEN  (40., 10.) 

CALL  UPEN  (50., 70.) 

CALLUPEN  (60., 10.) 

CALLUPEN  (70., 70.) 

RETURN 

END 
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CALL  USTART 
CALL  UOUTLN 
DO  II  I  *  L  3 

JF  Cl  .EQ.  15  CALL  UP AREA  C2 . ,6 . , 0 . , 9 . > 

IF  Cl  .EQ.  25  CALL  UP  AREA  C*. 6, 7.4,0.6.3.65 
IF  Cl  .EQ.  35  CALL  UP AREA  C2. 6,6. 6,2. 6,6. 65 
CALL  0RAFIT 
10  CONTINUE 
CALL  UENP 
STOP 

ENP  _ 

SUBROUTINE  8RAFJT 
CALL  UHOVE  CIO,, 10.5 
CALL  USET  C' LINE '5 
CALL  UPEN  COO.,  10.5 
i»  UNOVE  C20.,  10.5 
CM  I  UPEN  C30.,70.5 
CALL  UPEN  C70.,70.5 
CALL  UPEN  C80., 10.5 
i»  UMOVE  C 30., 70. 5 

USET  C'PCUBLEARROV'5 
CALL  UPEN  C40.,  10.5 
CALL  UPEN  C60.,70.5 
CALL  UPENC60.,  10.5 
CALL  UPEN  C70.,70.5 
RETURN 
ENP 
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C  THIS  PROGRAM  GENERATES  A  DISPLAY,  A  VERTICALLY  DISTORTED 
C  VERSION  OF  THE  DISPLAY,  AND  A  HORIZONTALLY  DISTORTED  VERSION  OF 
C  THE  DISPLAY  FOR  A  TEKTRONIX  4010/401  3  TERMINAL 

C 

C  INITIALIZATION. 

C 

CALL  USTART 


FOR  EACH  OF  3  PASSES,  ERASE  THE  SCREEN,  PROVIDE  AN  OUTLINE  DEFINE 
THE  DEVICE  WINDOW,  AND  DRAW'  THE  GRAPH. 


DO  10  1  =  1,3 

CALLUERASE 

CALL  UDAREA  (0., 7. 5,0., 5.5) 

CALL  UOUTLN 

IF(I.EQ.2)CALL  UDAREA  (0., 7.5, 2.4, 4  ) 
IF(I.EQ.3)CALL  UDAREA  (3., 5., 0., 5.5) 
CALLUMOVE  (50., 20.) 

CALL  UPEN1  (50., 80., 'DOUBLEARROW') 
CALL  UMOVE  (10  ,90.) 

CALL  UPEN  (50., 65.) 

CALL  UPEN  (1 00..65) 

CALL  UMOVE  (10., 90.) 

CALL  UPEN  (50., 50.) 

CALL  UPEN  (100., 50.) 

CALL  UMOVE  (10., 90.) 

CALL  UPEN  (50., 35.) 

CALL  UPEN  (100., 35.) 

10  CONTINUE 


TERMINATION. 

CALL  UEND 

STOP 

END 


EXAMPLE  1 1 1 -8 


▼ 


HAM-  USTART 
PC  10  I  -  I,  3 

CALL.  UERASE 

CALL  UDAREA  C8. ,7. 4,8. ,6. 63 
CA1 »  UCUTU4  ,  , 

IF  Cl  .EO.  Z>  CALL  UP AREA  7. 4,  2.  ,4  3 

IF  Cl  .EO.  3>  CALL  UDAREA  C3.,6.,8.,6.6> 

CALL  UHOVE  CB8.,28.>  _ . 

r>|  I  UPENt  CB8.,88., 'POUBLEARROVO 
CALL  UHOVE  CtO.,88.} 

CALL  UPEH  CB8 . , 66 . > 

CALL  UPEN  C188.,8S.> 

CALL  UHOVE  08. ,88.) 

CALL  UPEN  C68.,68.) 

CALL  UPEN  C188.,68.) 

CALL  UHOVE  Ct8.,88.) 

CALL  UPEN  CB8 . , 3S . ) 

CALL  UPEN  Ct88.,36.) 

18  CONTINUE 
CALL  UEND 
STOP 
END 


THIS  PROGRAM  DEMONSTRATES  HOW  TO  SUPPORT  DEVICE 
INDEPENDENCE. 

DIMENSION  ARRAY  (8) 

INITIALIZE 


CALL  USTART 


SET  'DEVICE'  UNITS  TO  PERCENTUNITS'  and  call  UDAREA  for  1  00%.  SINCE 
ONE  PERCENTUNIT  IN  THE  X  MAY  DIFFER  FROM  ONE  PERCENTUNIT  IN  THE 
RESET  TO 'INCHES' AND  THEN  DIVIDE  SCREEN. 


Y, 


CALL  USET  ('PERCENTUNITS') 
CALL  UDAREA  (0.  1  00  ,0  ,100.) 
CALL  USET  ('INCHES') 

CALL  USTUD  ('ARRAY') 


ASSUME  SCREEN  IS  LONGER  IN  X 
XMIN  =  ARRAY(5) 

XMAX  =  AMIN1  (ARRAY(6)/2.,ARRAY(8)) 
YMIN  =  ARRAY(7) 

YMAX  -  XMAX 


PLOT  THE  SAME  FIGURE  ON  HALF  OF  THE  SCREEN 

CALL  UDAREA  (XMIN, XMAX, YMIN, YMAX) 

CALL  UOUTLN 
CALL  FIGURE 

CALL  UDAREA  (XMAX, XMAX*2.,YMIN, YMAX) 

CALL  UOUTLN 
CALL  FIGURE 

TERMINATION 

CALLUEND 

STOP 

END 


SUBROUTINE  TO  GENERATE  A  POLYGON 

SUBROUTINE  FIGURE 
CALL  UPLYGN  (50  ,50. ,5  ,25.) 

RETURN 

END 
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CHAPTER  IV 


ALPHANUMERIC  OUTPUT 


Basic  Alphanumeric  Output 

Under  many  circumstances  the  graphics  programmer  would  prefer  to  manipulate 
alphanumeric  data  with  the  same  ease  that  pertains  to  strictly  graphical  information. 
Such  a  capability  would  expedite  the  labeling  of  figures,  allow  numerical  values  to  be 
printed  at  a  specific  location  on  the  display,  and  permit  a  discrete  separation  of  text  from 
graphical  information  should  the  user  so  desire  In  order  to  provide  these  capabilities, 
GCS  has  incorporated  two  very  powerful  alphanumeric  output  and  editing  routines, 
UPRINT  and  UWRITE,  which  may  be  called  by  the  following  sequences: 

CALL  UPRINT  (X,Y,DATA) 

CALL  UWRITE  (X.Y.DATA) 

X  and  Y  are  used  to  specify  the  starting  position  (in  current  units)  of  the  first  character  of 
the  output  text.  All  positional  and  coordinate  addressing  related  to  characters  is 
assumed  to  specify  the  position  of  the  lower-left  corner  cf  the  given  character.  DATA  is 
interpreted  in  the  following  manner,  based  upon  one  of  the  four  options  available  to  the 
user  through  a  call  to  USET  before  invoking  UPRINT  or  UWRITE. 

A.  TEXT  —  Under  this  default  option,  the  routines  will  assume  that  DATA  contains 
Hollerith  information  delimited  by  a  terminator  and  will  output  all  text  up  to,  but 
not  including  that  delimiter,  beginning  at  the  location  specified  by  (X.  Y).  CALL 
UPSET  (‘TERMINATOR’,  CHARACTER)  can  change  the  terminator  from  the 
default  backslash  character  There  are  four  ‘hardware’  character  sizes  that 
can  be  changed  by  CALL  USET(SIZE)  where  SIZE  can  be  ‘EXTRALARGE’, 
‘LARGE’,  'MEDIUM',  or  ‘SMALL’  (defauli). 

B.  REALNUMBER  —  DATA  is  assumed  to  be  a  single-valued  parameter  whose 
contents  is  assumed  to  be  of  type  REAL  Editing  will  take  place  using  ‘G’  for¬ 
mat,  and  the  text  will  be  printed  beginning  at  (X,Y). 

C.  INTEGER— As  in  the  case  of  REALNUMBER,  DATA  is  assumed  to  be  single¬ 
valued  and  of  type  REAL.  The  routines  will  perform  a  REAL  to  INTEGER  con¬ 
version  and  will  print  the  result  in  I  format. 

D.  XYCOORDINATES  —  DATA  is  assumed  to  be  a  2  element  REAL  array  whose 
values  specify  two  numbers  to  be  editted  and  printed  in  the  form:  (X,Y). 

UPRINT  and  UWRITE  perform  identical  functions  and  differ  only  in  the  action  taken  upon 
return  from  execution  of  the  given  subroutine  Upon  exit,  UWRITE  moves  the  beam  posi¬ 
tion  back  to  its  original  coordinates  at  the  time  it  was  invoked,  whereas  UPRINT  leaves 
the  beam  position  at  the  end  of  the  output  text.  Example  IV- 1  illustrates  the  four  options 
above. 

Alphanumeric  output  through  GCS  is  perhaps  most  conveniently  manipulated  through 
the  use  of  FONTUNIT  coordinates  under  DEVICE  mode.  Under  this  USET  option,  the 
(X , Y)  coordinates  are  expressed  directly  in  number  of  characters  horizontally  or  vertical¬ 
ly' 


Margining 

Since  alphanumeric  output  through  UPRINT  and  UWRITE  can  be  clipped’  when  in  ‘VIR- 
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TUAL  mode  the  user  is  provided  the  capability  to  horizontally  and  vertically 
output  (when  in  device  mode)  through  an  invocation  to  UMARGN: 


margin  his 


CALL  UMARGN  (XLEFT.XRIGHT.YBOTTM.YTOP) 

XLEFT  and  XRiGHT  represent  the  desifed  left-most  and  right-most  horizontal  positions 
expressed  in  DEVICE  units  within  which  alphanumeric  output  may  be  permitted  Max- 
mum  and  minimum  vertical  margins  are  established  by  YBOTTM  and  YTOP  respective- 

XRIQH?^^8  °fv^FT’vXoRAGHT’  YT°P’  and  YB0T™  be  specified  such  that 
..  mHT  <  XL^iFT  f?r  V?P  <  YB0T™  UMARGN  will  ignore  the  specified  setting  and 
the  margins  will  reflect  their  values  prior  to  the  call  to  UMARGN 

Margining  affects  alphanumeric  output  (when  in  device  mode)  in  the  following  manner: 

A.  Should  any  character  extend  beyond  the  right  margin,  an  automatic  carriage 
return  and  line  feed  are  generated,  followed  by  a  position  to  the  left  margin  and 
output  resumed 


B 


C. 


Should  the  user  position  the  beam  at  a  location  to  the  left  of  the  left  marqin  the 
beam  is  positioned  to  the  left  margin  before  output  is  initiated. 

Should  output  be  attempted  at  vertical  positions  outside  the  closed  interval 
defined  by  the  minimum  and  maximum  vertical  margins,  the  beam  is  moved  to 
the  maximum  vertical  margin  before  any  output  is  begun. 


See  Example  IV-2  for  an  example  of  margin! 


ng 


Bulk  or  Mixed  Alphanumeric  Output 


SnniPHP^ati°,nS  tr®quirin9  ,bulk  or  mixed  alphanumeric  output,  the  graphics  programmer 

fhe  ^owinn  ^ ,the  USe  0f  Subroutine  UP™T1  and  UWRIT1,  which  may  be  invoked  by 
tne  following  calling  sequence-  y 


CALlUPRNTI  (DATA.OPTION) 
CALL  UWRIT1  (DATA.OPTION) 


0PT  i?nAxf  .Sl^9je-valued  character  variable  which  specifies  the  format  or  mode  under 
which  DATA  is  to  be  editted  and  displayed;  i  e.  TEXT  REALNUMBER,  GREEN  etc  DATA 
specifies  the  actual  information  which  is  to  be  output  by  UPRNT1  and  UWRIT1  under  the 

,ha*  'he  “ns,'a'",s  “  DATA  ■"  ~  " 


UPRNT1  and  UWRIT1  differ  from  UPRINT  and  UWRITE  in  the  following  respects: 


A. 


Smce  no  coordinate  specifications  are  passed  in  the  calling  sequence,  the 
subroutine  ' ^  °U  PUt  Wl11  be9'n  at  the  current  beam  position  upon  entry  to  the 


B. 


The  effects  of  OP  i  ION  aDoly  only  to  the  current  output  operation 
from  the  subroutine  these  effects  are  removed  from  the  GSA 


and  upon  exit 


Fortran  Input-Output 

ronilSinri0  ner'J  OU»-PUt  U!ed.in  i,nteractive  input-output  communications  and  various 
cont  ol  and  coordination  activities  (such  as  the  printout  of  warning  or  error  notifications) 

the  convenience  of  permitting  the  use  of  normal  FORTRAN  input-output  statements  may 
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override  the  advantages  of  using  UPRINT  or  UWRITE  to  process  text.  For  such  activities 
to  be  performed  successfully,  it  is  essential  that  the  terminal  device  be  set  for  the  receipt 
of  alphanumeric  rather  than  graphic  information  a  task  which  is  accomplished  through  a 
call  to  UALPHA.  On  systems  that  buffer  the  graphics  output,  UALPHA  must  be  called 
prior  to  the  Fortran  I/O  to  flush  the  graphics  output.  It  should  be  noted  that  all 
alphanumeric  FORTRAN  output  is  unaffected  by  the  margins  established  by  the  user. 

Single  Character  Output 

In  isolated  instances,  it  is  desirable  to  combine  the  output  of  graphical  and  alphanumeric 
information  into  one  composite  operation.  This  capability  is  provided  through  the 
‘CHARACTER’  option  available  with  UPEN,  whereby  a  single  printable  character  used  as 
a  parameter  to  USET  identifies  that  parameter  as  the  current  character  for  printing. 
Thus,  in  order  to  print  the  character  ‘A’  at  (X,Y),  the  following  commands  would  be 
specified: 


CALL  USET  (‘LA’) 

CALL  UPEN  (X,Y) 

Upon  execution  of  the  call  to  UPEN,  the  character  ‘A’  will  terminate  the  line  drawn  under 
the  current  line  option  It  should  be  noted  that  the  CHARACTER  mode  of  operation  used 
in  the  above  manner  will  remain  in  effect  until  any  one  of  the  acceptable  UPEN  suffixes  is 
specified;  e.g„  CALL  USET  (‘LNULL’).  See  Example  IV-3. 

An  additional  facility  for  single-character  output  is  provided  through  subroutine  UACUT 
which  is  called  in  the  following  manner: 

CALL  UAOUT  (CHAR) 

CHAR  is  a  single  character  expressed  in  Hollerith  format  either  as  a  quoted  character 
string  or  as  an  explicit  variable  Since  UAOUT  outputs  the  given  character  at  the  current 
beam  position,  the  user  should  ensure  that  the  beam  is  positioned  to  the  proper  coordi¬ 
nates  before  invoking  UAOUT  Character  output  through  UAOUT  is  subject  to  the  cur¬ 
rent  margin  constraints  applicable  to  UPRINT  and  UWRITE:  in  addition,  this  output 
differs  from  that  available  through  UPEN  in  that  UAOUT  positions  the  beam  to  next 
character  position  after  the  specified  character  has  been  printed,  whereas  the  UPEN 
option  always  maintains  the  beam  position  at  the  center  of  the  desired  character.  See 
Example  IV-4  and  compare  to  Example  IV-3. 


Software  Character  Output 

The  preceding  discussion  of  alphanumeric  output  has  been  applicable  only  to  HARD¬ 
WARE  character  generation.  Under  certain  circumstances,  however,  the  sophisticated 
user  may  desire  character  output  which  is  rotated  or  scaled  to  suit  a  particular  applica¬ 
tion.  For  examples  see  Example  IV-5,  and  IV-6.  This  capability  is  provided  in  GCS 
through  the  SOFTWARE  character  option  available  through  USET.  Under  this  option,  all 
output  is  subject  to  the  constraints  imposed  by  the  virtual  window,  whenever  UPRINT  is 
called  in  ‘VIRTUAL’  space.  Although  SOFTWARE  characters  are  manipulated  using  the 
same  routines  as  those  for  output  of  HARDWARE  characters,  interested  users  are 
directed  to  the  relevant  subroutine  writeups  for  a  discussion  of  the  limitations  imposed 
on  this  form  of  output. 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  OPTIONS  AVAILABLE  THROUGH 
'UPRINT’  AND  'UWRITE’  DEFAULT  VIRTUAL  WINDOW  AND  DEVICE  AREA  WILL 


FIRST  ESTABLISH  A  2-COORDINATE  ARRAY:  COORD(2).  PUT  SAMPLE  DATA 
POINT  (25..0.9999999E1  9)  IN  ARRAY.  NOTE  THAT  COORDINATES  SPECIFIED 
IN  ARRAY  COORD  ARE  PRINTED.  THEY  MAY  OR  MAY  NOT  BE  SAME  AS 
COORDINATES  WHICH  SPECIFY  WHERE  PRINTING  IS  TO  OCCUR. 

DIMENSION  COORD  (2) 

DATA  COORD/25., 0.9999999E1  9/ 


DEFAULT  OPTION  FOR  'UPRINT'  AND  ‘UWRITE’  IS  FOR  ‘TEXT’  USE  THIS 
DEFAULT  T O  OUTPUT  A  LINE  OF  TEXT  AT  SAMPLE  COORDINATE  LOCATION 
(0.,1  00.)  NOTE  THE  SEMICOLANf;)  IS  THE  DELIMITER 


CALLUSTART 

CALL  UPSET  (‘TERMINATOR’,';') 

CALL  UPRINT  (0  ,1  00  , ‘THIS  IS  A  SAMPLE  LINE  OF  OUTPUT  TEXT;’) 


SPECIFY  THE  ‘REALNUMBER’  OF  OPERATION  AND  USE 
MIDSCREEN  (50. ,50  )  A  TYPICAL  REAL  NUMBER  (100.) 


UWRITE  TO  PRINT  AT 


CALL  USET  ('REALNUMBER’) 
CALL  UWRITE  (50.  50., 100.) 


SPECIFY  INTEGER'  MODE  AND  PRINT  AT  COORDINATES  (75., 25.)  THE 
SAMPLE  IN  i  EGER  -1  23456789  NOTICE  THAT  SINCE  ALL  GCS  PARAMETERS 
ARE  REAL  NUMBERS,  EVEN  THIS  INTEGER  MUST  BE  PASSED  IN  REAL 
NUMBER  FORM  I.E  -1  23456789 


CALL  USET  ('INTEGER’) 

CALL  UPRINT  (75., 25  .-1  23456789.) 


EXAMPLE  OF  USING  'XYCOORDINATE'  OPTION  TO  PRINT  XYCOORDINATES 
NOTE  THE  VARIED  FORM  OF  OUTPUT  OF  REAL  NUMBERS  WITH  ‘G’  FORMAT 


CALL  USET  ('XYCOORDINATE’) 

CALL  UWRITE  (25., 75., COORD) 

END  GCS  (CALL  UEND1 ,  STOP  EXECUTION  (STOP),  END  PROGRAM  (END) 

CALL  UEND 

STOP 

END 


EXAMPLE  IV-1 
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THIS  IS  A  SAMPLE  LINE  OF  OUTPUT  TEXT 


CZS..  .  100CE-r205 


188. 


—123466788 


DIMENSION  COORD  C25 

DATA  COORD/26. . 8. 8888888E 18/ 

CALL  U8TART 

CALL  UPSET  C'TERMINAT0R'.';O  _ _ _ 

CALL  UPRINT  C0..76., 'THIS  IS  A  SAMPLE  LINE  OF  OUTPUT  TEXT; ' 5 

CALL  USET  C'REALNUMBER'5 

CALL  UWRITE  <68. .26..  188.5 

CALL  USET  C'INTESER' 5 

CALL  UPRINT  <76. .8. .-123466788. 5 

CALL  USET  C'XY COORDINATE '5 

CALL  UWRITE  <26 . . 68 . . C00RD5 

CALL  UEND 

STOP 

END 
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C  SAMPLE  PROGRAM  TO  ILLUSTRATE  OPTIONS  AVAILABLE  THROUGH 
C  MARGINNING.  DEFAULT  VALUES  WILL  BE  USED  IN  THIS  EXAMPLE  WITH 
C  ADDITIONAL  CALLS  TO  UMARGN  TO  ADJUST  THE  ALPHANUMERIC  WINDOW. 
C  THIS  PROGRAM  WAS  WRITTEN  FOR  A  TEKTRONIX  401 0/401  3  TERMINAL. 

c 

C  SET  UP  300  CHARACTER  ARRAY  NAMED  SAMPLE;  PUT  TEXT  IN  IT.  NOTE 
C  SEMICOLON  (;)  as  character  terminator 

CHARACTER  SAMPLE*300 

DATA  SAMPLE/’THIS  IS  A  LINE  OF  OUTPUT  TEXT  WHICH  IS  LONG  ENOUGH  TO 

1  CAUSE  THE  ALPHANUMERIC  OUTPUT  TO  WRAP-AROUND  NOTE  THE 

2  EFFECTS  WHICH  THE  DEFAULT  MARGINS  HAVE  UPON  OUTPUT;'/INITIALIZE 
C 

CALL  USTART 


LOCATIONT(2C^ 25)H  RRST  CHARACTER  of  PFIINT  STRING  AT  COORDINATE 

CALL  UPSET  ('TERMINATOR',  7) 

CALL  USET  CFONTUNITS') 

CALL  UMARGN  (35., 36  ,1  ,35.) 

CALL  USET  ('PERCENTU NITS') 

CALL  USET  (‘DEVICE’) 

CALLUPRINT  (20., 25., SAMPLE) 

SECOND  EXAMPLE 


EXAMPLE  ILLUSTRATING  THE  USEFULNESS  OF  MARGINING.  THE  MARGINS 
WILL  BE  SET  USING  ‘FONTUNIT’  COORDINATE  ADDRESSING  WITH  THE  LEFT 
MARGIN  AT  APPROXIMATELY  MID-SCREEN,  I.E  35  CHARACTER-WIDTHS  OR 
FONTUNITS  FROM  THE  LEFT  EDGE,  AND  THE  RIGHT  MARGIN  1  FONTUNIT 
LATER  AT  POSITION  36,  GIVING  A  TOTAL  MARGIN  WIDTH  OF  ONE 
CHARACTER 


POSITION  PRINTING  AT  TOP  OF  PAPER.  IN  THIS  EXAMPLE  WE  SPECIFY  4000 
CHARACTER-HEIGHTS  (FONTUNITS)  FROM  BOTTOM  OF  PAPER  AN 
UNREASONABLY  LARGE  VALUE,  SO  GCS  DEFAULTS  TO  THE  LARGEST 
PHYSICALLY  POSSIBLE  VALUE  THE  TOP  OF  THE  PAGE. 

CALL  UPRINT  (0., 4000., ‘HELLO  THERE' ;’) 

WRAP  UP 


CALLUEND 

STOP 

END 


EXAMPLE  IV-2 
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THIS  IS  A  LINE  OF  OUTPUT  TEXT  WHICH  IS  LONG  ENOUGH  TO  CAUS 
E  THE  ALPHANUMERIC  OUTplTl  TO  WRAP-AROUND.  NOTE  THE  EFFECTS  WHICH  THE  DEFA 
ULT  MARGINS  HAVE  UPON  OUTPUT 


CHARACTER  SAMPLE«3©0 

DATA  SAMPLE/'THI8  IS  A  LINE  OF  OUTPUT  TEXT  _ 

A  WHICH  IS  LONG  ENOUGH  TO  CAUSE  THE  ALPHANUMERIC 
i  SJtSjT  TO  WRAP-AROUND.  NOTE  THE  EFFECTS  WHICH  THE 
A  DEFAULT  MARGINS  HAVE  UPON  OUTPUT j  O 
CALL  USTART 

CALL  UPSET  C'TERMINATOR'^'j'S 
CALL  USET  C'PERCENTUNITS'S 
CALL  USET  < 'DEVICE'S 
CALL  UPRINT  <20 ., 26 .„ SAMPLES 
CALL  USET  C'FONTUNITS'S 

CALL  UMARGN  CSS. ,3S. , 1 . ,36. 5  _ _ 

CALL  UPRINT  C0., 4008., 'HELLO  THERE 1 ;  '  S 

CALL  UEND 

STOP 

END 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  SINGLE  CHARACTER  OUTPUT 
AND  LINE  TERMINATOR  OPTIONS  AVAILABLE  THROUGH  ‘UPEN’  TWO 
GRAPHS  WILL  BE  PLOTTED: 

(1 )  A  LINEAR  EQUATION  (Y=X).  THE  DATA  FOR  PLOTTING  IT  WILL  BE 
PRESTORED  WITH  THE  VALUES  OF  THE  INDEPENDENT  VARIABLE  X  IN 
THE  ARRAY  X  AND  CORRESPONDING  VALUES  OF  Y  IN  THE  ARRAY  Y. 

(2)  A  QUADRATIC  EQUATION  (Z  =  (.1  *X)**2).  THE  DATA  VALUES  FOR  THE 
SAME  VALUES  OF  THE  INDEPENDENT  VARIABLE  X  WILL  BE  STORED 
IN  THE  Z  ARRAY. 

DEFAULT  VIRTUAL  WINDOW  AND  DEVICE  AREA  WILL  BE  USED  THE  LINEAR 
EQUATION  WILL  HAVE  AN  'A  TERMINATOR  AT  THE  END  OF  VISIBLE  LINE 
SEGMENT,  WHEREAS  THE  QUADRATIC  EQUATION  WILL  HAVE  A  ‘B’ 
TERMINATOR  FOR  EACH  INVISIBLE  LINE  SEGMENT 

FIRST  SET  UP  X,Y,  &  Z  ARRAYS.  PRESTORE  DATA  IN  THEM 

DIMENSION  X(1 1  ),Y(1  1  ),Z(1 1 ) 

DATA  X/0.,1  0. , 20. ,30. ,40. ,50., 60. ,70., 80. ,90. ,1  00./ 

DATA  Y/0.,1  0.,20.,30  ,40  ,50  ,60  ,70., 80  ,90., 1  00./ 

DATA  Z/0.,1  .,4., 9  ,1  6., 25., 36., 49., 64., 81  .,1  00./ 

ENTER  GCS  AND  DRAW  OUTLINE  OF  DEFAULT  DEVICE  PLOTTING  AREA 

CALL  USTART 
CALL  UOUTLN 


USTART  HAS  IMPLICITLY  SET  PEN  TO  SOLID-LINE  MODE  NOW  SPECIFY 
THAT  AN  ‘A’  TERMINATOR  SHOULD  GO  ON  EVERY  LINE  AND  MOVE  TO  INITIAL 
(X, Y)  POINT  TO  BE  PLOTTED 


CALL  USET  (‘LA’) 
CALLUMOVE  (X(1),Z(1)) 


DRAW  1 1  LINE  SEGMENTS  X(1  ).Y(1 )  TO  X(2),Y(2)  TO  X(3),Y(3)  AND  SO  ON  TO 
X(1  1  ),Y(1 1 )  THEREBY  PLOTTING  TOTAL  EQUATION 

DO  1  1  =  1,1  1 
CALL  UPEN  (X ( I) , Y( I) ) 


SET  LINE  TYPE  TO  ‘NOLINE’  AND  SPECIFY  THAT  A  ‘B'  TERMINATOR  IS  TO  BE 
USED  FOR  EACH  INVISIBLE  LINE  SEGMENT 


CALL  USET  (‘NB’) 


MOVE  TO  FIRST  (X,Z)  POINT,  THEN  PLOT  1 1  (X,Z)  VALUES 

CALL  UMOVE  (X(1  ),Z(1 ) 

DO  2 1  =  1 1 

CALL  UPEN  (X(I),Z(I)) 

WRAP  UP 


CALLUEND 

STOP 

END 


EXAMPLE  IV-3 


iv-8 


DIMENSION  XClO.  YClO,  2ClO 

DATA  X/0.. 10. ,20., 30. .40., SO. .60. ,70. .80. 

DATA  Y/0., 10. .28. .30. ,40. .60. ,60. ,70. *80. 

DATA  2/0.. 1 ..4..0.. 16. .26.. 36. .40. .04. ,81 

CALL  U3TART 

CALL  UOUTLN 

CALL  USET  C'LAO 

CALL  UMOVE  CXC 1 7.2C  1 « 

DO  1  I  -  1.  11 

1  CALL  UPEN  CXCI5.YCI55 
CALL  USET  C'NBO 

CALL  UMOVE  CXC15.2C05 
DO  2  I  -  1.  11 

2  CALL  UPEN  CXCI5.2CI55 
CALL  UEND 

STOP 

END 


,80. ,100./ 
.80.. 100./ 
..100./ 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  CHARACTER  TERMINATOR  AND 
A/N  OUTPUT  USED  IN  CONJUNCTION  WITH  GRAPHICAL  OUTPUT  FOR  A 
TEKTRONIX  401 0/401  3  TERMINAL. 

CHARACTER  ROUTINE*7(4) 

DATA  INDEX, YO/0, 5.73/ 

DATA  ROUTINE/'UPEN;','UAOUT ;','U  PRINT ;','UWRIT1 ;'/ 

ENTER  GCS  DIVIDE  PLOTTING  AREA  INTO  4  EQUAL  SEGMENTS,  CHOOSE 
ONE  OF  THESE  SEGMENTS,  AND  OUTLINE  IT. 

CALL  USTART 

CALL  USET  ('TERMINATOR', 

D05  1  =  1,2 
XO  =  -1  82 
YO  =  YO-2.86 
DO  5  J=  1 ,2 
XO  =  XO  +  2.86 
INDEX  =  INDEX+  1 

CALL  UDAREA  (XO,(XO  +  2.57),YO.(YO  +  2.57)) 

CALL  UOUTLN 

MOVE  TO  THE  ORIGIN  &  SPECIFY  STANDARD  LINE  WITH  NO  TERMINATOR  IF 
'UPEN'  OPTION  IN  EFFECT,  SPECIFY  AN  'A'  AS  THE  TERMINATOR 

CALL  UMOVE  (0.,0.) 

CALL  USET  ('LNULL') 

IF(INDEX.EQ.I)  CALL  USET  ('LA') 

DISPLAY  A  LINE  THEN  BRANCH  TO  ONE  OF  FOUR  ROUTINES  TO  PRINT  AN  'A' 
ATTHE  END  OF  THE  LINE  SEGMENT 

DO  4  K= 1  4 

CALL  UPEN  ((25  *FLOAT(K)),(25.‘FLOAT(K))) 

GOTO  (4, 1,2, 3),  INDEX 
CALL  UAOUT  ('A;') 

GO  TO  4 

CALL  UPRNT 1  (  A;', 'TEXT  ) 

GO  TO  4 

CALL  UWRIT 1  ('A;', 'TEXT') 

CONTINUE 

DISPLAY  THE  NAME  OF  THE  ROUTINE  WHICH  WAS  USED  AT  BOTTOM  RIGHT 
CORNER  OF  WINDOW. 

CALL  UPRINT  (75., 2  ROUTINE(INDEX)) 

CONTINUE 

WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  THIS  FORTRAN  PROGRAM 

CALL  UEND 

STOP 

END 
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CHARACTER  ROUTINE  »»7  C4} 

DATA  ^S^CN^^Uf^Ni^'UAOUTi'^'UPRNTli'^'UURrrii7/ 

CALL  U8TART 

CALL  UPSET  {'TERMINATOR', 'jO 

DO  6  I  -  \.  2 

X0  -  ~J  .82 

Y0  -  Y0  ~  2.86 

DO  S  O  -  l,  2 

X0  -  X0  +  2.80 

INDEX  *  INDEX  *•  1 

pai  i  UDAREA  CX0, CX0f2.S73,Y0, CY0+2.6733 

CALL  UOUTLN 

CALL  UMOVE  C0.,0.3 

CAl  l  USET  C'LNULLO 

IF  C INDEX  .EQ.  O  CALL  USET  C'LAO 

pai  i  UPEN  C<2S.**FL0ATCK>5#C26.»»FL0ATCK577 
80  TO  C4, 1 ,2, 35,  INDEX 

1  CALL  UAOUT  C'AjO 
60  TO  4 

2  CALL  UPRNTl  C'A> 'TEXTO 
60  TO  4 

3  CALL  UWRITl  C'A; 'TEXTO 

4  CONTINUE  _ _ 

CAl  1  UPRINT  C76.,2.,ROUTINECINDEX55 
6  CONTINUE 
CALL  UEND 
STOP 
END 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  ALPHANUMERIC  OUTPUT  VIA  THE 
‘SOFTWARE’  CHARACTER  OPTION  AVAILABLE  UNDER  GCS  THREE 
EXAMPLES  ARE  INCLUDED:  A/N  OUTPUT  USING  THE  DEFAULT  SIZES  OF 
SOFTWARE  CHARACTERS,  A  SAMPLE  OF  ITALICIZED  OUTPUT  AND  A 
DEMONSTRATION  OF  REDUCED  AND  ROTATED  A/N  OUTPUT. 


ENTER  GCS,  OUTLINE  DEFAULT  DEVICE  PLOTTING  AREA  &  SPECIFY  THAT 
SOFTWARE  CHARACTERS  ARE  TO  BE  USED 


CALLUSTART 
CALL  UOUTLN 
CALL  USET  (‘SOFTWARE’) 
CALL  UPSET  (‘TERMINATOR', 


OUTPUT  SOME  TEXT  WHICH  STARTS  AT  LOCATION  (1 0,5)  AND  USES  THE 
DEFAULT  SOFTWARE  CHARACTER  SIZE. 


CALL  UPRINT  (1 0., 5., ‘DEFAULT  TEXT  SIZE;') 


SPECIFY  THAT  ITALICIZED 
STRING  WHICH  BEGINS  AT 


CHARACTERS  ARE  DESIRED,  AND  OUTPUT  A 
LOCATION  (10,90). 


CALL  USET  (‘ITALICS’) 

CALL  UPRINT  (1 0., 90., 'SAMPLE  OF  ITALICS;’) 


CHANGE  THE  CHARACTER  TYPE  BACK  TO  GOTHIC,  AND  SPECIFY  THE  SIZE 
OF  THE  NEW  SOFTWARE  CHARACTER  DESIRED  -  2  VIRTUAL  UNITS  BY  3 
VIRTUAL  UNITS 


CALL  USET  (‘GOTHIC') 

CALL  UPSET  (‘HORIZONTAL’, 2.) 
CALL  UPSET  ('VERTICAL', 3.) 


MOVE  TO  THE  ORIGIN  OF  THE  CURRENT  COORDINATE  SYSTEM  AND 
PERFORM  A  45  DEGREE  ROTATION  ABOUT  THIS  ORIGIN. 

CALLUMOVE  (0.,0.) 

CALL  UROTAT  (45.) 


OU  FPUT  A  STRING  WHICH  BEGINS  AT  LOCATION  (40,0)  WITHIN  THE 
ROTATED  COORDINATE  SYSTEM. 

CALL  UPRINT  (40  ,0  , ‘REDUCED  AND  ROTATED  CHARACTERS;’) 

WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  THE  FORTRAN  PROGRAM. 

CALLUEND 

STOP 

END 


EXAMPLE  IV-5 
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SAMPLE  OF 

ITALICS 

/ 

<£ 

/ 

r 

DEFAULT  TEXT  SIZE 

CALL 

CALL 

TAI  I 

CALL 

fTAI  I 

CALL 

CALL 

CALL 

CALL 

CALL 

fTAI  I 

CALL 

CALL 

CALL 

STOP 

END 


USTART 

UOUTLN 

UPSET  C' TERMINATOR', '#  '3 

USET  C' SOFTWARE '3  _  , 

UPRINT  C l 0.,S., 'DEFAULT  TEXT  SIZE# '3 

USET  C' ITALICS'}  _ 

UPRINT  C10., 88., 'SAMPLE  OF  ITALICS# '3 

USET  C'SOTKEC' 3 

UPSET  C' HORIZONTAL ',2. 3 

UPSET  C' VERTICAL', 3. 3 

UMOVE  C8 . , 8 . 3 

IiRQTAT  C 46  ) 

UPRINT  C40!,0.,  'REDUCED  AND  ROTATED  CHARACTERS#  ' 3 
UEND 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  ‘UPRINT’  TO  OUTPUT  MIXED 
ALPHANUMERIC  DATA 


INITIALIZE  ALL  VARIABLES  WHICH  WILL  BE  USED 

CHARACTER  OPTION'1  0(4)/'REALNUMBER\  ‘INTEGER’,  ‘REALNUMBER’ 
‘INTEGER’/ 

CHARACTER  TITLE*6(2)/‘X  =  ;  ‘Y  =  •  ’/ 

DATA  X,Y,/0.,0./ 


ENTER  GCS,  SET  UP  WINDOW  AND  DRAW  AXES 

CALLUSTART 
CALL  UOUTLN 
CALL  UWINDO  (-1  „5.,-1  .,5.) 

CALLUMOVE  (0..-.5) 

CALL  UPEN1  (0  ,4.4.,‘LARROW') 

CALL  UMOVE  (-.5,0) 

CALL  UPEN  (4.4,0.,'LARROW’) 

MOVE  TO  ORIGIN  AND  MARK  IT 


CALL  UPEN  (X.Y.'NO’) 

DRAW  A  SEGMENT  OF  A  PARABOLA,  MARK  THE  COORDINATES  AT 
INTERVALS  OF  .5  FOR  X  AND  ALTERNATELY  OUTPUT  THE  VALUES  OF  X  AND 
Y  AS  REAL  AND  INTEGER. 

WHEN  EXECUTING  THIS  PROGRAM  ON  CDC  MACHINES,  USE  THE  ROUND 
OPTION  ON  THE  FTM  COMPUTER  IN  ORDER  TO  ASSURE  CORRECT 
PRINTOUTS 


DO  1  1  =  1,4 
DO  2  J  =  1 ,5 
X  =  X+  10 
Y=X“2 

CALL  UPEN  (X,Y) 

2  CONTINUE 

CALL  UPEN1  (X.Y.'NO’) 

CALL  UPRNT 1  (TITLE(1  ),‘TEXT’) 
CALL  UPRNT1  (X.OPTION(U) 
CALL  UPRNT1  (TITLE(2),‘TEXT’) 
CALL  UPRNT  1  (Y.OPTION(D) 
CALLUMOVE  (X,Y) 

1  CONTINUE 


WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  PROGRAM. 

CALLUEND 

STOP 

END 


EXAMPLE  IV-6 
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CHARACTER  OPTION«10C45  _ 

DATA  OPTIQN/'REALNUHgER',  'PrtEBEg*, 
8,  'REALNUMBER', 'INTEGER'/ 


CHARACTER  TITLEw0C2:>/'  X  - 
DATA  X,Y/0.,0./ 

CALL  USTAKT 

CALL  UPSET  C' TERMINATOR', '  j  2 
CALL  UOUTLN  r. 

call  uwindo  c-i  .,s.:> 

CALL  UMCVE  CO., “.S3 

C0. , 4. 4,  'LARROHO 
C— .  S,  0  •  5 

C4.4,0.,'LARROWO 
CX,Y,'NOO 
4 
6 


'  Y  -  ; '/ 


CALL  UPEN1 
CALL  UMOVE 
CALL  UPEN1 
CALL  UPEN1 
DO  1  I  -  1, 
DO  2  U  -  1, 


X  -  X  ♦  .1© 

Y  «*  X**2 

CALL  OPEN  CX,Y5 

CONTINUE 

CALL  UPEN1  CX,Y,'N0'3 

CALL  UPRNT1  CTITLEC1 5,  'TEXTO 

CALL  UPRNTl  CX, OPTION CI3 3 

CALL  UPRNTl  CTITLEC25, 'TEXT' 5 

CALL  UPRNTl  CY,0PTI0NCI33 

CALL  UMOVE  CX,Y5 

CONTINUE 

CALL  UEND 

STOP 

END 
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CHAPTER  V 


GRAPHICAL  AND  ALPHANUMERIC  INPUT 


The  following  section  discusses  the  facilities  within  GCS  that  are  available  for  entering 
data  of  a  graphical  nature.  Not  all  implementations  of  GCS  can  be  used  for  such 
graphics  input.  For  example,  those  implementations  of  GCS  running  in  a  batch  mode,  i.e., 
passive  graphics,  do  not  permit  graphical  input.  For  these  applications,  the  routines  dis¬ 
cussed  below  are  disabled. 

For  a  graphics  system  to  be  truly  interactive,  it  is  necessary  to  provide  the  user  with  the 
ability  of  communicating  information  of  a  strictly  graphical  nature  to  his  graphics  pro¬ 
gram.  Graphical  input  differs  from  conventional  FORTRAN  input  (i.e.,  READ,  etc.)  in  the 
following  areas: 

A.  Graphical  input  is  normally  performed  as  a  composite  operation  involving  the 
transfer  of  positional  coordinate  information  from  the  terminal’s  primary 
graphic  input  device  (cursor,  light  pen,  etc.)  in  conjunction  with  a  single 
character  from  the  keyboard  (or  other  suitable  interrupt)  which  signals  the  ter¬ 
mination  of  the  input  operation. 

B.  Because  of  the  unique  nature  of  strictly  graphical  input,  standard  FOFTRAN 
input  cannot  be  used  in  lieu  of  software  which  has  been  specifically  designed 
for  that  given  purpose. 

C.  Graphical  input  does  not  produce  any  extraneous  output  at  the  graphics  ter¬ 
minal  when  entering  information,  in  contrast  with  standard  FORTRAN  free-for- 
matted  input  which  alerts  the  user  through  the  use  of  a  special  symbol  that 
input  is  requested,  and  echoes  the  input  information  as  it  is  entered. 


Positional  and  Character  Graphical  Input 

The  standard  positional  and  character  graphics  input  subroutine  implemented  within 
GCS  is  UGRIN,  which  may  be  called  by  the  following  sequence: 

CALL  UGRIN  (X,Y,CHAR) 

When  UGRIN  is  invoked,  the  terminal’s  primary  graphics  input  device  is  activated,  and 
remains  in  an  enabled  state  until  a  character  is  entered  from  the  keyboard.  Upon  receipt 
of  the  character,  UGRIN  stores  it  into  CHAR  using  standard  FORTRAN  Hollerith  format, 
disables  the  primary  input  device,  and  transfers  the  positional  coordinates  (in  current 
units)  of  the  input  device  at  the  time  the  character  was  entered  into  X  and  Y.  See  Exam¬ 
ple  V-1. 

Subroutine  UAIN  functions  in  the  same  manner  as  UGRIN,  except  that  no  positional 
information  is  returned.  Since  the  terminal  remains  in  ‘limbo’  while  awaiting  input  from 
the  user,  UAIN  provides  a  convenient  method  of  pausing  at  desired  points  during  execu¬ 
tion  of  a  graphics  program. 


CALL  UAIN  (CHAR) 


Alphanumeric  Input  (Fortran) 

For  bulk  alphanumeric  input  used  in  conjunction  with  interactive  communications  and 
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coordination  activities,  standard  FORTRAN  may  be  utilized  under  GCS  using  the  same 
criteria  outlined  in  Chapter  IV  for  FORTRAN  alphanumeric  output;  i.e.,  the  terminal  must 
be  placed  into  the  alphanumeric  mode  through  the  call  to  UALPHA  before  control  is 
relinquished  to  the  FORTRAN  input  routines.  It  should  be  emphasized,  however,  that 
although  FORTRAN  input  is  extremely,  convenient,  the  use  of  FORTRAN  input  pro¬ 
cedures  significantly  reduces  the  efficiency  at  which  a  graphics  program  executes; 
hence,  the  use  of  FORTRAN  I/O  should  be  avoided  whenever  possible. 

Alphanumeric  Input  (Graphical) 


An  alternative  method  of  alphanumeric  input  is  provided  to  the  graphics  programmer 
through  subroutine  UREAD: 


CALL  UREAD  (X,Y, DATA, COUNT, FLAG) 

X  and  Y  are  used  to  specify  the  starting  position  (in  current  units)  of  where  the 
alphanumeric  input  is  to  be  attempted.  UREAD  will  store  the  edited  input  into  DATA 

based  upon  one  of  the  four  options  available  to  the  user  through  a  call  of  USET  prior  to 
invoking  UREAD. 


A.  TEXT  —  Under  this  default  option,  UREAD  will  accept  and  store  COUNT 
characters  into  DATA:  hence,  the  user  must  insure  that  DATA  has  been  suitab¬ 
ly  dimensioned  to  hold  the  number  of  characters  which  have  been  requested. 
Should  fewer  than  COUNT  characters  be  entered  as  input,  UREAD  will  store 
the  actual  number  of  characters  entered  into  FLAG,  and  blank-fill  the  remain¬ 
ing  (COUNT  -  FLAG)  characters  of  DATA.  It  should  be  noted  that  UREAD  does 
not  append  the  termination  character  to  the  end  of  the  input.  Therefore  the 
user  is  responsible  for  inserting  this  character  via  UAPEND  if  the  string  is  to  be 
passed  as  a  parameter  to  UPRINT  or  UWRITE. 

B'  RE^_LNUMBER  -  ^is  option  directs  UREAD  to  edit  the  alphanumeric  input  as 
a  REAL  number,  and  to  store  the  resulting  floating-point  number  into  the 
single-valued  REAL  parameter  DATA.  Should  UREAD  encounter  any  illeqal 

^Trfcters  durin9  *he  edit,  FLAG  will  be  returned  with  a  negative  value  and 
DATA  will  be  undefined. 


INTEGER  -  As  in  the  case  of  REALNUMBER,  DATA  is  assumed  to  be  single- 
°!  type  REAL-  UREAD  will  edit  the  alphanumeric  input  as  an 
r!^aGEt’  perform  an  iNTEGER  to  REAL  conversion,  and  store  the  result  into 
DATA.  The  user  may  check  if  the  operation  was  successfully  performed  bv 
examining  FLAG  upon  return  from  UREAD. 

XYCOORDINATES  -  This  option  directs  UREAD  to  accept  two  REAL  num- 
o!?,  eparated  by  a  comma)  as  input  and  to  store  them  into  the  two  element 
REAL  array,  DATA.  FLAG  is  set  to  reflect  the  status  of  the  input  and  editing 
operation  y 


Under  REALNUMBER,  INTEGER,  and  XYCOORDINATES  options,  COUNT  is  used  to 
specify  the  number  of  variables  which  are  to  be  input  under  that  given  mode.  For  exam¬ 
s''"0  in  egers  were  desired  to  be  read  into  DATA  at  virtual  location  (0.100.),  the 
following  call  to  UREAD  could  be  used- 


CALL  USET  (‘INTEGER’) 

CALL  UREAD  (0.,1 00., DATA, 2., FLAG) 

Under  XYCOORDINATES,  COUNT  designates  the  number  of  ordered  pairs  to  be  input. 
niNptrp1'^  version  of  UREAD  is  available  to  the  user  under  GCS  through  subroutine 
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CALL  UINPUT  (DATA, COUNT, FLAG, OPTION) 


DATA  COUNT  and  FLAG  are  interpreted  in  the  same  manner  as  UREAD,  OPTION  is  a 
sinqle-valued  character  variable  which  specifies  the  format  or  mode  under  which  the 
input  is  to  be  editted  and  stored  into  DATA,  i.e.,  TEXT,  REALNUMBER,  INTEGER,  etc.  The 
UINPUT/UREAD  relationship  closely  parallels  UPRNT1 /UPRINT  in  that  the  operation  is 
performed  at  the  current  beam  position,  and  the  effects  of  OPTION  are  purged  from  the 
GCS  upon  exit  from  the  subroutine.  See  Example  V-2. 


Menued  Graphical  Input 

Aside  from  entering  positional  information  which  directs  the  generation  of  a  display,  the 
bulk  of  most  interactive  input  requirements  centers  upon  the  ability  to  select  one  of 
several  options  which  are  ‘menued’  before  the  user.  Menuing  represents  a  very  attrac¬ 
tive  means  of  user  interaction  due  to  the  inherent  simplicity  of  the  required  user 
response  -  one  need  only  position  the  graphic  input  device  within  the  square  of  the 
menuboard  which  represents  the  desired  option,  and  depress  a  character  on  the 
keyboard  to  transmit  the  selection  to  the  user’s  program. 

Within  GCS,  graphical  input,  by  means  of  a  menuboard,  is  facilitated  through  the  use  of 
subroutine  UMENU,  which  is  called  by  the  following  sequence: 

CALL  UMENU  (PTSIN, LABELS, CHOICE) 


The  absolute  value  of  PTSIN  represents  the  number  of  menu  options  that  will  be  pro¬ 
vided  (maximum  of  10);  LABELS  is  a  character  array  containing  one  entry  of  up  to  eight 
characters  which  is  to  be  printed  under  each  menu  option;  and  CHOICE  is  a  single¬ 
valued  output  REAL  variable,  assigned  a  value  by  UMENU  which  indicates  the  box  num¬ 
ber  of  the  option  which  the  user  has  selected.  When  UMENU  is  called  with  a  positive 
value  of  PTSIN,  a  menuboard  is  drawn,  and  the  graphic  input  device  is  enabled.  A  nega¬ 
tive  value  of  PTSIN  merely  enables  the  input  device  and  inhibits  the  redrawing  of  the 
menuboard.  See  Example  V-3. 

Drafting-Type  Graphical  Input 

The  three  GCS  graphical  input  subroutines  described  in  this  chapter  represent  a  core 
around  which  many  sophisticated  interactive  graphical  programs  may  be  designed- 
There  exists  one  additional  GCS  graphical  input  subroutine,  UDRIN,  which  Permits  high- 
level  drafting-type  activities  to  be  performed  under  program  control;  in  addition,  the 
result  of  the  man/machine  interaction  may  be  saved  and  recalled  during  future  interac¬ 
tions 


CALL  UDRIN(X,Y,CHAR) 

Interested  users  are  directed  to  the  GCS  Programmer’s  Reference  Manual  for  further 
discussion. 
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SAMPLE  PROGRAM  WHICH  ILLUSTRATES  GRAPHICS  INPUT  APPLICATION 
THROUGH 'UGRIN'.  THREE  TYPES  OF  CASES  ARE  HANDLED:  SOLID'S' 
INVISIBLE  T,  AND  DASHED  'D'  LINES.  THE  DESIRED  OPTION  FOR  THE  LINE  IS 
ENTERED  AS  A  SINGLE  CHARACTER  WHEN  THE  CURSORS  HAVE  BEEN 
POSITIONED.  DEFAULT  VALUES  OF  WINDOW,  DEVICE  AREA,  AND  DASH 
SPECIFICATION  ARE  USED.  AN  'E'  WILL  TERMINATE  THE  PROGRAM. 

CHARACTER  CHAR*1 
CALL  USTART 
CALL  UOUTLN 

ENABLES  CURSORS,  OBTAIN  (X,Y)  COORDINATES,  AND  THE  CHARACTER. 

1  CALL  UGRIN  (X,Y, CHAR) 

CHECK  FOR  A  REQUEST  FOR  A  SOLID  LINE  TO  BE  DRAWN  TO  (X,Y). 

IF  (CHAR.EQ.'S')  CALL  UPEN1  (X.Y.'LINE') 

CHECK  FOR  A  REQUEST  FOR  AN  INVISIBLE  LINE  (MOVE)  TO  (X,Y). 

IF  (CHAR.EQ.T)  CALL  UMOVE  (X,Y) 

CHECK  FOR  A  REQUEST  TO  DRAW  A  DASHED  LINE  TO  POINT  (X,Y). 

IF  (CHAR.EQ.'D')  CALL  UPEN1  (X.Y.'DASH') 

CHECK  IF  THE  USER  DESIRES  TO  TERMINATE  CURRENT  GCS  PROGRAM. 

IF  (CHAR.EQ.'E')  GO  TO  2 
GOTO  1 

2  CALLUEND 
STOP 
END 


EXAMPLE  V-1 
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CHARACTER  CHAR»l 
CALL  USTART 
CAI I  UOUTLN 

1  CALL  U9RZN  CX,Y,CHAR> 

CCHAR  .EQ.  'SO  CALL  UPENl 
CCHAR  .EQ.  'XO 
CCHAR  .EQ.  'DO 
CCHAR  .EQ.  'EO 
TO  t 

2  CALL  UENP 
STOP 
END 


_ CX#Y#  'LINEO 

CALL  UHOVE  CX,Y) 

CALL  UPENl  CX,  Y,  'DASHO 
80  TO  2 
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C  SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  SUBROUTINE 
C  ‘UMENU’.  THE  CHARACTER  ARRAY  ‘OPTION’  CONTAINS  THE  LABELS  TO  BE 
C  PRINTED  UNDER  EACH  OF  THE  MENU  SELECTION  BOXES.  THE  NUMBER  OF 

C  THE  BOX  WHICH  WAS  SELECTED  BY  THE  USER  IS  RETURNED  IN  THE 
C  PARAMETER  ‘CHOICE’.  THE  DEFAULT  VALUES  OF  VIRTUAL  WINDOW  AND 
C  DEVICE  AREA  ARE  USED. 

C 

C  INITIALIZE  LABELS  FOR  THE  MENU  CHOICES 
C 

CHARACTER  OPTION*8(9) 

DATA  OPTION/'OPTION  1  ‘OPTION  2\  ‘OPTION  3‘,  'OPTION  4’,  ‘OPTION  5‘, 
‘OPTION  6’,  ‘OPTION  7‘,  ‘OPTION  8‘,  ‘OPTION  9V 


ENTER GCS 

CALLUSTART 
CALL  UOUTLN 


CALL  ‘UMENU’  TO  DRAW  THE  MENUBOARD  OF  9  OPTIONS  AND  ACCEPT  THE 
USER’S  SELECTION 


CALL  UMENU  (9.0,  OPTION,  CHOICE) 


CALL  ‘UMENU’  ONCE  AGAIN,  BUT  USE  A  MINUS  SIGN  (-)  TO  SPECIFY  THAT 
THE  MENUBOARD  IS  NOT  TO  BE  REDRAWN,  BUT  THAT  THE  USER  IS  TO  INPUT 
ANOTHER  CHOICE  (OR  REENTER  AN  EARLIER  ONE) 


CALL  UMENU  (-9.0,  OPTION,  CHOICE) 

CALLUEND 

STOP 

END 


EXAMPLE  V-2 
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« 
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7 
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I 


CHARACTER  OPTIONweCO? 
DATA  OPTION/'OPTION  1', 
&  'OPTION  6', 

i,  'OPTION  O'/ 


'OPTION  2 
'OPTION  6 


/ 


CALL  USTART 

CALL  UOUTLN  _ _ 

CALL  UMENU  CO.O, OPTION, CHOICE? 
CALL  UMENU  C-O.O, OPTION, CHOICE? 


CALL  UENP 

STOP 

END 


'OPTION  S', 
'OPTION  7', 


'OPTION 

'OPTION 


4', 
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c 

c 

c 

c 

c 

c 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  SUBROUTINE 
‘UINPUT’  TO  ACCEPT  ALPHANUMERIC  INPUT  FROM  A  USER.  EDIT  IT  INTO  THE 


DEFINE  AND  INITIALIZE  DATA  ARRAYS  USED  IN  THIS  GCS  EXAMPLE 


CHARACTER  OPTION'I  2(4) 

DIMENSION  COUNT(4),DATA(6),INDEX(4) 

DATA  COUNT,  INDEX, X.Y/5.,1  „1  „1  .,1 ,3, 4, 5, 5., 90./ 

DATA  OPTION/TEXT’, ‘REALNUMBER’, ‘INTEGER', ‘XYCOORDINATE’/ 

ENTER  GCS,  OUTLINE  DEFAULT  VIRTUAL  WINDOW,  AND  DEFINE  LOOP  TO 
ILLUSTRATE  THE  FOUR  INPUT  AND  OUTPUT  OPTIONS. 

CALLUSTART 

CALL  UPSET  (‘TERMINATOR’,';’) 

CALL  UOUTLN 
DO  1  1  =  1,4 

POSITION  BEAM/PEN  TO  PROPER  LOCATION  PRIOR  TO  PRINTING  OF  A 
PROMPTING  MESSAGE. 

CALLUMOVE  (X,Y) 

ALERT  THE  USER  THAT  INPUT  IS  DESIRED,  THEN  ACCEPT  THE  DATA 
CALL  UPRNT 1  (‘ENTER:  ; ‘TEXT’) 

CALL  UINPUT  (DATA(INDEX(1 )),  COUNT(2),  FLAG,  OPTION(2)) 


OUTPUT  DATA 

IF(I.EQ.I)  CALL  UAPEND  (COUNT(I),  DATA  (1)),  DATA(INDEX(1 )) 
CALLUSET  (OPTION(I)) 

CALL  UPRINT  (X,1 0.,DATA(INDEX(l))) 

UPDATE  COORDINATE  LOCATIONS  FOR  NEXT  ATTEMPT  AT  A/N  INPUT 

X  =  X  +  22.5 
Y  =  Y-20. 

1  CONTINUE 

WRAP-UP  GRAPHICS  ACTIVITY,  &  TERMINATE  THE  FORTRAN  PROGRAM. 

CALLUEND 

STOP 

END 


EXAMPLE  V-3 
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CHARACTER  OPTION**  1 2  C43 
DIMENSION  C0UNTC43.DATAC03,INI>EXC45 
DATA  COUNT,  INDEX.  X.Y/6., 1  ., I  ., I  ..l, 3.  4.6,6 
DATA  OPTION/' TEXT', 'REALNUMBER', 'INTEGER'. 


60./ 

'XYCOORDINATE'/ 


CALL  USTART 

CALL  UPSET  C ' TERMINATOR', 'lO 

CALL  UOUTLN 

DO  I  I  -  1,  4 

CALL  UMOVE  CX.Y5 

CALL  UPRNTI  C' ENTER «  j 'TEXT'3 

OAI  I  UINPUT  CDATACINDEXCI^3, COUNT CI3, ELA6, OPTION CIDD 
IFCI.EQ. 1 >  CALL  UAPENDCCOUNTC l 5.DATACINDEXC1 53,DATACINDEXC 1 353 


CALL  USET  t OPTION Cl 

CALL  UPRINT  CX, 10..DATACINDEXCI355 

X  -  X  ♦  22.6 

Y  -  Y  -  20. 

1  CONTINUE 
CALL  UEND 
STOP 
END 
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CHAPTER  VI 


GCS  UTILITY  SUBROUTINES 


To  assist  the  user  in  preparing  his  graphical  applications,  GCS  has  incorporated  a  series 
of  comprehensive,  yet  easy  to  use  utility  subroutines  which  permit  the  programmer  to 
generate: 

A.  Circles  and  circular  arcs 

B.  Regular  polygons  and  other  straight-sided  geometric  figures 

C.  Conic  sections 

D.  Linear  and  least-squares  polynominal  curve  fits  to  a  series  of  user-supplied 
data  points. 

All  of  the  GCS  utility  routines  which  generate  graphical  output  perform  their  activities 
within  the  environment  established  by  the  user  at  the  time  they  were  invoked;  hence, 
such  output  will  be  constrained  by  such  parameters  as  the  virtual  window  and  device 
area,  current  units  and  mode  of  addressing,  line  type  and  terminator,  together  with  any 
rotational  and  scaling  factors  specified  by  the  user. 


Circles 

One  of  the  most  common  requirements  of  scientific  and  engineering  graphical  applica¬ 
tions  is  fo  the  generation  of  circles  and  circular  arcs.  Provision  for  this  capability  under 
GCS  is  available  through  subroutines  UCRCLE  and  UARC. 

Circles  may  be  generated  through  subroutine  UCRCLE  which  is  called  by  the  following 
sequence: 

CALL  UCRCLE  (X,Y, RADIUS) 

X  and  Y  are  used  to  specify  the  coordinates  (in  current  units)  of  the  center  of  the  circle  of 
radius,  RADIUS,  which  will  be  approximated  by  a  series  of  line  segments  forming  a  many- 
sided  equilateral  polygon,  whose  peak  deviation  from  an  ideal  circle  is  approximately  1 .4 
thousandths  of  the  ideal  circle’s  radius.  This  error  is  normally  comparable  in  magnitude 
to  the  raster  spacing  of  the  plotting  device,  and  should  prove  adequate  under  most  con¬ 
ditions.  Example  VI-1  demonstrates  the  use  of  UCRCLE. 

Circular  Arcs 

Circular  arcs  may  be  generated  through  subroutine  UARC  which  is  called  by  the  follow¬ 
ing  sequence: 


CALL  UARC  (X,Y, ANGLE) 

Upon  invocation,  UARC  will  generate  an  arc  beginning  at  the  current  beam  position  and 
of  angular  span  ANGLE.  The  radius  of  the  arc  is  determined  through  computation  of  the 
distance  from  the  center  of  the  arc  (specified  by  X  and  Y)  and  the  beam  position  prior  to 
entry  into  the  subroutine.  Upon  exit,  UARC  will  leave  the  beam  at  the  last  point  of  the 
angular  segment  it  has  generated.  For  example,  if  all  default  conditions  are  in  effect,  the 
current  beam  position  is  at  (40.0,50.0),  and  UARC  is  invoked  with  the  following 
parameters: 
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CALL  UARC  (40.0,20.0,90.0) 

UARC  will  generate  a  circular  arc  having  a  center  at  (40.0,20.0),  with  a  radius  of  30.0,  and 
angular  span  of  90.0  degrees.  The  arc  will  begin  at  (40.0,50.0)  and  terminate  at 
(10.0,20.0).  See  Example  VI-2. 

Should  the  user  be  at  a  terminal  which  has  the  capability  to  generate  circles  and  circular 
arcs  via  hardware,  UCRCLE  and  UARC  will  utilize  such  facilities  when  they  are  invoked. 


Regular  Polygons 

Polygon  and  other  straight-sided  geometric  figure  generation  is  provided  throuqh 
subroutines  UPLYGN  and  URECT.  Subroutine  URECT  may  be  utilized  when  a  reac- 
tangle,  which  spans  the  area  defined  by  the  current  beam  position  and  coordinates  (X, Y) 
is  desired.  Should  URECT  be  called  under  the  RELATIVE  mode  of  addressing  any  rota¬ 
tional  or  scaling  parameters  which  may  apply  will  dictate  the  rotation  or  scaling  of  the 
rectangle  about  the  current  beam  position. 

CALL  RECT(X,Y) 

Provision  for  the  generation  of  equilateral  (regular)  polygons  is  available  under  GCS 
through  UPLYGN  which  may  be  called  by  the  following  sequence: 

CALL  UPLYGN  (X,Y,PTS, RADIUS) 

X  and  Y  denote  the  coordinates  of  the  center  of  the  polygon,  PTS  is  the  number  of  sides 
which  is  to  comprise  the  figure,  and  RADIUS  is  used  to  define  the  radius  of  the  circle 
within  which  the  polygon  is  inscribed.  With  no  relative  rotation  specified,  the  polygon 
will  be  drawn  with  one  side  parallel  to  the  bottom  of  the  plotting  area.  Should  relative 
rotation  be  specified,  this  ‘base"  side  will  be  rotated  by  the  given  angle  of  rotation.  In 
contrast  to  URECT,  UPLYGN's  axis  of  rotation  is  defined  by  (X,Y)  as  opposed  to  the  beam 
up°n  entry  to  the  subroutine.  Examples  VI-3  through  VI-6  demonstrate  the  use 
of  UPLYGN  and  URECT  and  illustrates  some  of  the  principles  of  rotation  and  line  options. 


Conic  Sections 

A  particularly  useful  subroutine  which  may  be  used  to  draw  all  (or  part)  of  a  generalized 
conic  section  having  a  given  focus  directrix,  eccentricity,  and  angular  span  is  available 
through  the  following  calling  sequence: 

CALL  UCONIC  (X,Y,P,E,THETA1,THETA2) 

(X,Y)  are  used  to  specify  the  coordinates  of  the  focus  of  the  conic  section;  P  is  the  dis¬ 
tance  from  the  focus  to  the  directrix;  E  is  the  eccentricity,  THETA1  and  THETA2  repre- 
sent  the  initial  and  final  angles  through  which  the  conic  section  is  to  be  drawn. 
Parameters  E  and  P  affect  the  generation  of  the  conic  section  in  the  following  manner. 

A-  E  =  0  wiM  draw  a  circular  arc  with  a  center  at  (X,Y)  and  radius  P/ 

2.  The  arc  will  subtend  the  angular  range  defined  by 
THETA1  and  THETA2. 

B.  0.LT.ABS(E).LT.1  will  generate  an  ellipse. 

C  ABS(E)  =  1  will  specify  a  parabola. 

D  ABS(E).GT,1  designates  that  a  hyperbola  is  to  be  drawn. 
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E. 

E.GT.O 

indicates  that  the  major  axis  of  the  conic  section  is  to  be 
oriented  parallel  to  the  X-axis. 

F. 

E.LT.O 

specifies  that  the  major  axis  is  to  be  oriented  along  the  Y- 
axis. 

G. 

P.GT.O 

defines  the  position  of  the  focus  to  be  to  the  right  of  (or 
below)  the  directrix. 

H. 

P.LT.O 

indicates  that  the  focus  is  positioned  to  the  left  of  (or 

above)  the  directrix. 

Examples  VI-7  and  VI-8  demonstrate  the  use  of  UCONIC. 


Curve  Fitting 

For  those  users  who  desire  to  combine  data  analysis  through  curve  fitting  into  their 
graphical  applications,  subroutines  ULINFT  and  ULSTSQ  should  provde  of  particular 
importance  ULINFT  should  be  used  when  it  is  desired  to  obtain  the  slope  (S)  and  Y- 
intercept  (Yl)  of  the  linear  equation,  Y  =  SX  +  Yl,  which  represents  the  least-squares 
linear  fit  to  a  number  (XN)  of  user-supplied  data  points  (contained  in  arrays  X  and  Y). 
ULINFT  may  be  called  by  the  following  sequence: 

CALL  ULINFT  (X,Y,SN,S,YI) 


See  Example  VI-9. 

Subroutine  ULSTSQ  should  be  used  when  a  ‘least-squares’  polynomial  curve  fit  is 
desired.  ULSTSQ  returns  the  N  +  1  coefficients  of  the  polynominal  of  degree  N  which 
represents  the  ‘best’  in  the  sense  of  least-square  fit  to  a  series  of  user-supplied  data 
points.  ULSTSQ  may  be  invoked  by: 

CALL  ULSTSQ  (X,Y,XN,COEFF) 

where  X  is  a  user-supplied  array  containing  XN  values  of  the  independent  variable;  Y  is 
an  array  of  XN  values  for  the  dependent  variable;  XN  is  the  number  of  values  in  each  of 
the  X  and  Y  arrays;  and  COEFF  is  an  output  array  which  contains  the  N  +  1  coefficients  of 
the  polynominal  which  was  fitted  to  the  data.  In  order  to  specify  the  degree  of  the 
polynominal  which  is  to  be  fitted  to  the  data,  it  is  necessary  to  call  UPSET  before 
ULSTSQ  is  invoked.  For  the  generalized  case  outlined  above,  a  suitable  call  to  UPSET 
would  be: 


CALL  UPSET  (‘POLYNOMINAL’,FLOAT(N)) 


See  Example  VI-1 0. 

Development  of  Applications  Library 

There  is  one  additional  curve  fitting  routine  available,  USPLIN.  This  routine  does  a  cubic 
spline  fit  to  a  series  of  data  points.  The  quality  of  fit  is  established  by  the  nature  of  the 
cubic  spline  function.  The  user  is  referred  to  the  GCS  programmer’s  reference  manual. 

CALL  USPLIN (X,Y,XN,RX,RY,RN) 

The  subroutines  discussed  in  this  chapter  represent  a  group  of  software  which  may  be 
viewed  as  a  minature  applications  library. 


vi-3 


ooooo  ooo 


c 

C 

C 

C 

C 

C 


SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  SIMPLE  APPLICATION  OF  THE 
SUBROUTINE  ‘UCRCLE’.  DEFAULT  VIRTUAL  WINDOW  AND  DEVICE  AREA  IS 
USED.  NOTE  THE  EFFECT  OF  'SCISSORING'  DUE  TO  THE  VIRTUAL  WINDOW’S 
RESTRICTING  OF  ALL  GRAPHICAL  INFORMATION  TO  RESIDE  WITHIN  THE 
REGION  DEFINED  BY  A  1 00.-BY-1  00.  SQUARE. 


CALLUSTART 
CALL  UOUTLN 


DRAW  CIRCLES  WITH  CENTERS  AT  CORNER  OF  THE  VIRTUAL  WINDOW  AND 
CENTERS  AT  THE  MIDDLE  OF  EACH  OF  THE  WINDOW  BOUNDARIES  AlL  OF 
THESE  CIRCLES  HAVE  A  RADIUS  OF  50 


CALL  UCRCLE  (0..0..50.) 
CALL  UCRCLE  (50..0..50.) 
CALL  UCRCLE  (1  00., 0..50.) 
CALL  UCRCLE  (100., 50., 50.) 
CALL  UCRCLE  (1  00., 1  00., 50.) 
CALL  UCRCLE  (50.1  00., 50.) 
CALL  UCRCLE  (0.,1  00..50.) 
CALL  UCRCLE  (0..50..50.) 


DRAW  A  CIRCLE  OF  RADIUS  20.7  WITH  A  CENTER  AT  (50., 50.). 

CALL  UCRCLE  (50., 50., 20.7) 

CALLUEND 

STOP 

END 


EXAMPLE  VI-1 


vi-4 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

STOP 

END 


USTART 

UOUTLN 

UCRCLE 

UCRCLE 

UCRCLE 

UCRCLE 

UCRCLE 

UCRCLE 

UCRCLE 

UCRCLE 

UCRCLE 

UEND 


C0.,0.,S0.J 
C50.,0.,50.> 
<100. ,0., 60. 3 
c  100.  ,50.  ,50.;) 
<100., 100. ,60. 5 
<60., l 00., 60. > 
C0 • ,  100.460.3 
<0., 60. ,60. 5 
<60. ,60. ,20.7? 
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c 

c 

c 

c 


™~0GRAM  USED  T0  DEMONSTRATE  the  use  of  subroutine 
URAC  TO  DRAW  AN  ARC  CENTERED  AT  (40., 20.)  AND  OF  RADIUS  30  0  THE 
ARC  WILL  BEGIN  AT  (40., 50.),  AND  TERMINATE  AT  (10,20.) 


CALLUSTART 
CALL  UOUTLN 


MOVE  TO  WHERE  THE  ARC  IS  TO  BEGIN  AND  LABEL  THE  POSITION. 

CALL  UPEN1  (40  ,0,50.0,  'NCOORDINATES') 

CALL  UMOVE 


^ANg!SS^  CENTER  15  MO'2*  >■  SPANNING 


CALL  UARC  (40.0,20.0,90.0) 


DETERMINE  WHERE  'UARC'  HAS  LEFT  THE  BEAM 
COORDINATES  OF  THIS  LOCATION.  ALSO  PRINT 
CENTER  OF  THE  ARC 


.THEN  PRINT  THE 
THE  COORDINATE 


OF  THE 


CALL  UWHERE  (X,Y) 

CALL  UPEN1  (X,Y, 'NCOORDINATES') 

CALL  UPEN1  (40.0,20  0, 'NCOORDINATES') 

CALLUEND 

STOP 

END 


EXAMPLE  VI-2 


vi-6 


CALL  USTART 
CALL  UOUTLN 

CALL  UPOU  C40.0,E0.0, 'NCOORDIMATESO 
CALL  UKOVE  C40.0,60.05 
CALL  UARC  CH0. 0.^0.0,00.05 
CALL  UWHERE  CX,Y> 

CALL  UPENt  CX.Y,  'NCOORPINATE3'5 

CALL  UplSt  C40.6,20.0,'NCOORPINATESO 

CALL  UENP 

STOP 

ENP 
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c 

c 

c 

c 

c 

c 

c 

c 

c 
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SAMPLE  PROGRAM  USED  TO  DEMONSTRATE  USE  OF  SUBROUTINE 
‘UPLYGN’.  POLYGONS  OF  FROM  2  TO  9  SIDES  WILL  BE  DRAWN  WITHIN  THEIR 
OWN  WINDOW,  WHICH  IS  MAPPED  TO  DIFFERENT  PORTIONS  OF  THE 
SCREEN  OF  A  TEKTRONIX  401 0/401 3  TERMINAL. 

PRESET  NUMBER  OF  SIDES  OF  POLYGON  =  1 ,  ‘INITIAL  Y  HEIGHT  =  4.7’ 

DATA  SIDES  YO/1. 0,4.7/ 


START  GCS.  SET  VIRTUAL  WINDOW  TO  XMIN  =  -1 .1  XMAX  =  +  1.1  YMIN  =  -1  1 
YMAX=  +  1 .1 .  A  DEVICE  PLOTTING  AREA  WILL  BE  DEFINED  8  TIMES'  2 
OF  4,  EACH  TIME  CONTAINING  A  DIFFERENT  POLYGON  AND  WITH 
DEVICE  PLOTTING  AREA  OUTLINED 


CALLUSTART 

CALL  UPSET  (‘TERMINATOR’,  *;’) 

CALL  UWINDO  (-1.1, 1.1, -1.1, 1.1) 

THE  FOLLOWING  DO-LOOPS  SET  UP  THE  2  ROWS  OF  4  DISPLAYS 

DO  1  1=1,2 
X-1.5 
YO  =  YO-1  8 
DO  1  J=  1 ,4 
XO-XO+1.8 


INITIALIZE  NUMBER  OF  SIDES,  1  IS  ADDED  BEFORE  EACH  EXECUTION  SO 
POLYGON  SIDES  START  AT  2  AND  GO  TO  9  IN  8  STEPS 

SIDES  =  SIDES  + 1 .0 

NOW  ACTUALLY  SET  UP  THE  DEVICE  PLOTTING  AREA  AS  XO  AND  YO 
CHANGE  IT  WILL  MOVE  TO  8  DIFFERENT  LOCATIONS 

CALL  UDAREA  (XO,(XO  +  1 .5),YO,(YO+  1 .5)) 

AT  EACH  LOCATION  OUTLINE  IT 

CALL  UOUTLN 

UPLYGN  T0  DRAW  THE  POLYGON  WITHIN  THE  DEVICE  AREA  WE  HAVE 
DEFINED,  THEN  ADD  SOME  LABELING  VIA  CALLS  TO  ‘UPRINT’. 


CALL  UPLYGN  (0.0, 0.0, SIDES, 1 .0) 
LABEL  DRAWING 


CALL  USET  (‘TEXT’) 

CALL  UPRINT  (-1 .0,-1 .05, ‘SIDES;’) 
CALL  USET  (‘INTEGER’) 

CALL  UPRINT  (0.9, -1 .05, SIDES) 

1  CONTINUE 
CALLUEND 
STOP 
END 


EXAMPLE  VI-3 


vi-8 


t 


DATA  SIDES, Y8/ I .8,4.7/ 

CALL.  USTART 

CALL  UPSET  C'TERHXNATOR','jO 
CALL  UWINDO  <-! . !, I . 1,-1 . I, I . I> 

DO  I  I  -  I,  2 
X0  -  -l .5 
Y0  -  Y8  -  l .« 

DO  I  J  -  I,  4 

xa  -  xe  ♦  i.e 

SIDES  »  SIDES  ♦  1.8 

CALL  UDAREA  CX8, CX8*l .5), Y0, CY8+1 ,5>> 
CALL  UOUTLN 

CALL  UPLY8N  C0. 0,0.0, SIDES, l .8? 

CALL  U8ET  C'TEXTO 

CALL  UPRINT  C-l  .0,-1 .86,  'SIDES*  jO 

CALL  USET  C/INTE9ER/> 

CALL  UPRINT  C0.8,-l .0G,SIDES> 

CONTINUE 

CALL  UEND 

STOP 

END 
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c 

c 

c 

c 

c 

c 


SAMPLE  PROGRAM  USED  TO  DEMONSTRATE  USE  OF  SUBROUTINE 
'UPLYGN'.  A  TRIANGLE  WILL  BE  DRAWN  USING  1  OF  1  2  POSSIBLE  PEN 
OPTIONS  ON  ATETRONIX  401  0/401 3  TERMINAL. 


LOAD  A  CHARACTER  ARRAY  WITH  OPTIONS  TO  BE  USED  BY  USET  AND 
UPRINT 


CHARACTER  OPTIONS  6(1  2) 

DATA  INDEX, YO,OPTION/0.5,6,  'LNULL;',  'LARROW:',  'LBACKARROW-' 
'LDOUBLEARROW;',  'DNULL;',  'DARROW;',  'DBACKARROW;', 
'DOUBLEARROW;',  'TNULL;',  'TARROW;',  'TBACKARROW;','TDOUBL  ARROW;'/ 


ENTER  GCS,  DEFINE  VIRTUAL  WINDOW. 

CALLUSTART 

CALL  UPSET  ('TICINTERVAL',  0.25) 

CALL  UPSET  ('TERMINATOR',';') 

CALL  UWINDO(-1. 1,1. 1,-1. 1,1  1) 

DRAW  FIGURES  IN  THREE  ROWS  OF  FOUR. 

DO  1  1  =  1,3 
XO=  1 .5 
YO  =  YO-1 .8 
DO  1  J  =  1 ,4 
XO  =  XO+ 1 .8 
INDEX  =  INDEX+  1 

DEFINE  DEVICE  AREA  SO  THAT  ONLY  ONE  POLYGON  WILL  BE  DRAWN. 

CALL  UDAREA  (XO,(XO+  1  5),YO,(YO+1  5)) 

CALL  UOUTLN 


CALL  'UPLYGN'  TO  DRAW  THE  POLYGON  WITHIN  THE  DEVICE  AREA  WE  HAVE 
DEFINED  USING  ONE  OF  THE  TWELVE  POSSIBLE  PEN  OPTIONS. 


CALL  USET  (OPTION(INDEX)) 

CALL  UPLYGN  (0  ,0.0, 3.0,1 .0) 

CALL  UPRINT  (-1  0,-1 .0,OPTION(INDEX)) 
1  CONTINUE 
CALL  UEND 
STOP 
END 


EXAMPLE  VI-4 
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/\ 

A 

A 

A 

LNULL 

LARROW 

LBACKARROW 

LDOUBLEARROW 

A 

\ 

*\ 

'  \ 

'  \ 

'  \ 

/  \ 

'  \ 

'  \ 

/  \ 

'  \ 

B- - * 

4  ~  -  * 

¥ 

\ 

I 

PNIUX 

D ARROW 

PBACKARR0W 

ddoublearrow 

A 

fix'!  1  f  1  i  "JA, 

mi  i  i  v  t-HP- 

Mill  !■  A- 

RU  1  1  \  l 

|mf  (  ft  1  #  V  Mr 

tnull 

TARRDW 

TBACKAFROW 

TD0UBLEARR0W 

CHARACTER  OPTION**!  OCl 23 
DATA  INDEX, Y0/8, 6.0/ 

DATA  OPTION/ 'LNULLj 'LARROWj ', 'LBACKARROWj 
&  'DNlAJL; 'DARROWj 'DBACKARROW* 

&  'TNULLj','TARROW>','TBACl<ARROWj', 

CALL  USTART 

CALL  UPSET  ('TERMINATOR', '  j  '3 

CALL  UPSET  ('TICINT£RVAL',8.2B3 

CALL  UWINDO  (-1 . I, 1 . 1,-1 . 1, 1 . 13 

DO  1  I  -  I,  3 

X8  <**  -1  .6 

Y8  -  Y8  -  1 .6 

DO  I  O  ■  I,  4 

X8  m  X8  ♦  1 .8 

INDEX  -  INDEX  f  1 

CALL  UDAREA  (X8,  (X8*l  .8:>,  Y8,  (Y8*l  .833 
CALL  UOUTLN 

CALL  USET  (OPTION  CINDEX3  3 
CALL  UPLY8N  C8. 8,8. 8,3.8,  1  .83 
CALL  UPRINT  (-1 .8,-1 .8,0PTI0NCINDEX33 
1  CONTINUE 
CALL  UEND 
STOP 
END 


'LDOUBLEARROWj', 
'DDOUBLEARROV*', 
'TDOUBLEARROVj '/ 
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SAMPLE  PROGRAM  USED  TO  DEMONSTRATE  USE  OF  SUBROUTINE 
‘UPLYGN’.  A  TRIANGLE  WILL  BE  DRAWN  IN  RELATIVE  MODE  AND  ROTATED 
ABOUT  ITS  CENTER  IN  TEN  DEGREE  INCREMENTS  ON  A  TEKTRONIX  401  0/ 
401  3  TERMINAL. 

DATA  DEGREE, YO/O.0, 5.563/ 

ENTER  GCS,  DEFINE  VIRTUAL  WINDOW,  AND  PEN  OPTIONS 
CALLUSTART 

CALL  UWINDO(-1. 1,1. 1,-1. 1,1.1) 

CALL  USET  (‘INTEGER’) 

CALL  USET  (‘LARROW’) 

DO  1  1  =  1,3 

XO=-1 .5 

YO  =  YO-1 .8 

DO  1  J  =  1 ,4 

XO  =  XO+ 1 .8 

DEGREE  =  DEGREE+ 1  0.0 

DEFINE  DEVICE  AREA  SO  THAT  ONLY  ONE  POLYGON  WILL  BE  DRAWN 

CALL  UDAREA  (XO,(XO+ 1 ,5),YO,(YO+ 1 .5) 

CALL  UOUTLN 

CALL  ‘UPLYGN’  TO  DRAW  THE  POLYGON  WITHIN  THE  DEVICE  AREA  WE  HAVE 
DEFINED.  ROTATING  IT  IN  RELATIVE  MODE  BY  TEN  DEGREES. 

CALLUMOVE  (0.0, 0.0) 

CALL  USET  (‘RELATIVE’) 

CALL  UPSET  (‘ROTATE’, DEGREE) 

CALL  UPLYGN  (0.0, 0.0, 3.0,1 .0) 

CALL  USET  (‘ABSOLUTE’) 

CALL  UPRINT  (-1 .0,-1 .0, DEGREE) 

1  CONTINUE 
CALLUEND 
STOP 
END 


EXAMPLE  VI-5 
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4 

A' 

128 

DATA  PE8REE,  Y8/8.8,5.503/ 

CALL  U8TART 

CALL  UWINDO  <-t . 1, 1 . 1,-1 . 1, 1 . 1) 

CALL  USET  C'INTECER') 

CALL  USET  C'LARROU') 

DO  1  I  -  1,  3 
X0  -  -1.6 
Y8  «■  Y8  —  1.8 
PO  I  d  •  I,  4 

XB  -  xa  ♦  1 .8 

DECREE  -  DECREE  ♦  18.8 

CALL  UDAREA  CX8, CX8+1 .55, Y8, CY8+1 .5)) 

CALL  UOUTLN 

CALL  UHOVE  C8.8,8.8) 

CALL  USET  C' RELATIVE') 

CALL  UPSET  C 'ROTATE', DEGREE) 

CALL  UPLYGH  <8. 8,8. 8,3. 8, 1 .8) 

CALL  USET  C' ABSOLUTE') 

CALL  UPR3KT  C-t .8,-1 .8, DECREE) 
l  CONTINUE 
CALL  UEND 
STOP 
END 
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C  SAMPLE  PROGRAM  USED  TO  DEMONSTRATE  USE  OF  SUBROUTINE  ‘URECT’ 
C  A  RECTANGLE  WILL  BE  DRAWN  IN  RELATIVE  MODE  WITH  A  ROTATIONAL 
C  INCREMENT  OF  THIRTY  DEGREES  APPLIED  TO  SUBSEQUENT  CASES  ON  A 
C  TEKTRONIX  401  0/401  3  TERMINAL. 

C 

DATA  DEGREE, YO/O.0, 5.63/ 

ENTER  GCS,  SET  VIRTUAL  WINDOW,  SET  INTEGER  MODE 
CALLUSTART 

CALL  UWINDO  (-1.1,1  1, -1.1, 1.1) 

CALL  USET  (‘INTEGER’) 

LOOP  THROUGH  PROGRAM,  CHANGING  LOCATION  OF  FIGURE  BY 
INCREMENTING  THE  LOCATIO  NBY  A  FIXED  AMOUNT. 

DO  1  1  =  1,3 
XO  =  -1 .5 
YO  =  YO-1 .8 
DO  1  J=1,4 
XO  =  XO+ 1 .8 
DEGREE  =  DEGREE +  30.0 

DEFINE  DEVICE  AREA  SO  THAT  ONLY  ONE  RECTANGLE  WILL  BE  DRAWN. 

CALL  UDAREA  (XO,(XO+  1  5),  YO,(YO+  1 .5)) 

CALL  UOUTLN 

CALL  ‘URECT’  TO  DRAW  THE  RECTANGLE  WITHIN  THE  DEVICE  AREA  WE 
HAVE  DEFINED,  ROTATING  IT  IN  RELATIVE  MODE  BY  THIRTY  DEGREES. 

CALLUMOVE  (0.0, 0.0) 

CALL  USET  (‘RELATIVE’) 

CALL  UPSET  (‘ROTATE’, DEGREE) 

CALL  URECT  (0.8, 0.6) 

CALL  USET  (‘ABSOLUTE’) 

CALL  UPRINT  (-1 .0,-1 .0, DEGREE) 

1  CONTINUE 
CALLUEND 
STOP 
END 


EXAMPLE  VI-6 
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DATA  DEGREE, Y0/8.0,S. 63/ 

CALL  USTART 

CALL  UM33NDO  C-l .  I,  1 . 1,-1 .  i,  I .  1) 

CALL  USET  C 7  INTEGER7) 

DO  I  I  -  I,  3 
X0  «  -l.S 
Y0  -  Y0  -  1.8 
DO  l  d  -  l,  4 

xa  -  xa  ♦  i.s 

DEQREE  -  DEGREE  ♦  32.0 

CALL  UP AREA  CX0,  CX0+1 .E), Y0, <Y0*1 .S)) 

CALL  UOIJTLN 

CALL  UNOVE  <0. 0,0.0) 

CALL  USET  C 7 RELATIVE7) 

CALL  UPSET  C 7 ROTATE7, DEGREE) 

CALL  URECT  CO. 8,0. 6) 

CALL  USET  C7 ABSOLUTE7) 

CALL  UPRINT  C-l .0,-1 .0, DEGREE) 

1  CONTINUE 
CALL  UEND 
STOP 
END 
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C  SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  ‘UCONIC’  TO 
C  GENERATE  ELLIPSES  AND  HYPERBOLAE.  FOUR  FIGURES  WILL  BE  DRAWN: 
C  2  ELLIPSES  ORIENGED  ALONG  THE  'X'  AND  ‘Y’  AXES;  AND  2  HYPERBOLAE 

C  ORIENTED  ALONG  THE  ‘X’  AND  *Y’  AXES.  EACH  ONE  OF  THE  FIGURES  IS 

C  DRAWN  WITHIN  ITS  OWN  REGION  OF  THE  SCREEN  BY  REDEFINING  THE 
C  DEVICE  AREA  PRIOR  TO  DRAWING  THE  FIGURE  ON  A  TEKTRONIX  401 0/4013 
C  TERMINAL. 

C 

C  SET  UP  DATA  ARRAYS  FOR  UCONIC 

C 

DIMENSION  X(4),Y(4),P(4),E(4) 

DATA  INDEX, YO,X,Y,P,E/ 

*  0,5.73,1 0., 50., 67., 40., 50., 1  0., 50., 67,9.5-9.5, 9., -8.,  .9.-.9.1 .44,-1 .44/ 

ENTER GCS 

CALLUSTART 
DO  1  1  =  1,2 
XO=  1 .82 
YO  =  YO-2.86 
DO  1  J  =  1 ,2 
XO  =  XO  +  2.86 
INDEX  =  INDEX  +  1 

DEFINE  DEVICE  AREA  SO  THAT  ONLY  ONE  FIGURE  WILL  BE  DRAWN. 

CALL  UDAREA  (XO,(XO  +  2.57),YO,(YO  +  2.57) 

CALL  UOUTLN 

CALL  UCONIC  TO  DRAW  THE  FIGURE  USING  THE  PARAMETERS  STORED  IN 
ARRAYS  ‘X’,‘Y’,‘P’,  AND  ‘E’.  NOTE  THAT  DEFAULT  VIRTUAL  WINDOW  IS 
MAPPED  TO  THE  CURRENT  DEVICE  AREA  SPECIFICATION. 

CALL  UCONIC  (X(INDEX),Y(INDEX),P(INDEX),E(INDEX), 0.0, 360.0) 

1  CONTINUE 
CALLUEND 
STOP 
END 


EXAMPLE  VI-7 


vi-16 


DIMENSION  XC45rYC45,PC43,EC45 

DATA  INDEX,  Y0,X,Y,P,  E/0,6.73,  10. ,60. ,67. ,60. ,50. , ,10 
^  0.6, *41 . 6, 0 . , **8 . ,  .0,  —  .0,  1  . 44,— 


CALL  USTART 
DO  1  I  -  1,  2 
X0  -  -1 .02 


.,60., 67 
1  .44/ 


Y0  -  Y0  -  2.86 
DO  I  O  "  I,  2 
X0  -  X0  2.86 
INDEX  -  INDEX  ♦  1 

CALL  UDAREA  CX8, CX0*-2.677,  Y0,  CY0»2.67?5 
rAi  i  Uol/TLN 

CALL  UCONIC  CXCCNDEX5, YCINDEX3,PCINDEX?,ECINDEX?,0.0,360.0? 


1  CONTINUE 
CALL  UEND 
STOP 
END 
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c 

c 

c 

c 

c 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  ‘UCONIC’  TO 
GENERATE  PARABOLAE.  FOUR  FIGURES  WILL  BE  DRAWN:  2  WILL  BE 
ORIENTED  ALONG  THE  '  +  X’  AND  '+ Y’  AXES,  AND  2  WILL  BE  ORIENTED 
ALONG  THE  '-X'  AND  ‘-Y’  AXES.  EACH  ONE  OF  THE  PARABOLAE  IS  DRAWN 
WITHIN  ITS  OWN  REGION  OF  THE  SCREEN  BY  REDEFINING  THE  DEVICE  AREA 
PRIOR  TO  DRAWING  THE  FIGURE  ON  A  TEKTRONIX  4010/4013  TERMINAL. 


DIMENSION  X(4),Y(4),P(4) 

DATA  INDEX, YO,X,Y,P,E/ 

&  0,5.73,1 0., 50., 90., 50., 50., 1 0., 50., 90., 1 3., -1 3., -1  3..1 3.,1  .,-1  .,1  .,-1 ./ 


ENTER GCS 


CALL  USTART 
DO  1  1  =  1,2 
XO=  1 .82 
YO= YO-2.86 
DO  1  J=  1 ,2 
XO=XO  +  2.86 
INDEX  =  INDEX  + 1 


DEFINE  DEVICE  AREA  SO  THAT  ONLY  ONE  FIGURE  WILL  BE  DRAWN. 

CALL  UDAREA  (XO,(XO+ 2.57), YO,(YO+ 2.57)) 

CALL  UOUTLN 


?ooa  wo  °N  C  T0  DRAW  THE  FIGURE  USING  THE  PARAMETERS  STORED  IN 
ARRAYS  •XVYVP’,  AND  ‘E\  NOTE  THAT  DEFAULT  VIRTUAL  WINDOW  IS 
MAPPED  TO  THE  CURRENT  DEVICE  AREA  SPECIFICATION. 

CALL  UCONIC  (X (INDEX), Y(INDEX),P(INDEX),E(INDEX)  0  0  360 ) 

CONTINUE  '  ’ 

CALLUEND 

STOP 

END 


EXAMPLE  VI-8 
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& 

CM  l  USTART 


DO  l  I  -  I.  2 
X8  -  -1 .82 
Y8  -  Y8  -  2.80 
DO  t  O  ■  l«  2 
X0  *■  X8  ♦  2.80 

SlP UDAREA^XO.  CX0f2 . 675.  Y8.  CY0*2 . 6755 


68.. 18. .68. .88 
..  1  ..""1  •/ 


CALL  UOUTLN 
CALL  U CONIC 

i  continue: 
CALL  UEND 
STOP 
END 


CXCINDEX5.  YCINDEX5.  PCCNDEX5.  ECINDEX5.  C.8.  308 .85 
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C 

C 

C 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  ‘ULINFT’  TO 
CALCULATE  THE  SLOPE  (S)  AND  Y-INTERCEPT  (Yl)  OF  A  LINE  WHICH 
REPRESENTS  THE  'BEST'  LINEAR  FIT  TO  A  SERIES  OF  DATA  POINTS 
DEFAULT  VALUES  OF  VIRTUAL  WINDOW,  DEVICE  AREA,  AND  LINE  TYPE  ARE 
USED. 

DIMENSION  X(20),Y(20) 

_  PATA  X/O.,5.,  1  0.,  1  5.,  20,  25,  30,  35,  40,  45,  50,  55,  60,  65,  70,  75,  80,  85, 

&  90.,  95./ 

V  ^TcCY//2°"  25"  30"  35”  30-  25"  20-  1  5-  1  °-  1 5  -  20,  25,  30,  35,  40,  45,  50,  55, 
&  oU.,  o5./ 


ENTER  GCS,  DRAW  OUTLINE 

CALLUSTART 
CALL  UOUTLN 
CALL  USET  (‘N  +  ’) 

DO  1  1=1,20 
XN  =  FLOAT(I) 

AND  PLOT  EACH  DATA  POINT  WITH  A  '  + 

CALL  UPEN  (X(I),Y(I)) 

1  CONTINUE 

CALL  USET  ('LINE') 

CALL  'ULINFT'  TO  CALCULATE  THE  LINE'S  SLOPE  AND  Y-INTERCEPT. 
CALL  ULINFT  (X,Y,XN,S,YI) 

MOVE  TO  THE  Y-INTERCEPT  THEN  GRAPH  THE  LINE  USING  YO  =  SX  +  YI. 

XMIN  =  0.0 
XMAX  =  100.0 
CALLUMOVE  (XMIN.YI) 

YO  =  YI  +  S*MAX 
CALL  UPEN  (XMAX.YO) 

CALLUEND 

STOP 

END 


EXAMPLE  VI-9 
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DIMENSION  XC20?,YC20? _  _  __ 

DATA  X/2. ,6. ,  10^,1 6 - . 
&  60.,66.,e8.,O6.,70.,76.,80.,86.,00.,86./ 

DATA  Y/2 . , 7 . , 1 0 . , 1 4 . , 26 .  24 .  3 1  ^34^40., 40 ., 

&  68. ,68. ,63. ,04. ,70. ,70. ,02. ,00. ,81 .,87./ 

CALL  USTART 
CALL  UOUTLN 
DO  2  I  -  1,  28 
XN  -  FLOAT Cl? 

CALL  USET  C'ACENTER*? 

CALL  USET  C*N»'? 

CALL  UPEN  CXCI?, YCI5? 

CALL  USET  C'LINE'? 

2  CONTINUE  _ 

CALL  ULINFT  CX,  Y,  XN,  8,  YI? 

XN IN  -  0.0 

XNAX  -  108.0 

CALL  UNOVE  CXKLN,YI? 

Y0  -  YI  ♦  8  •»  XNAX 
CALL  UPEN  CXNAX, YO? 

CALL  UEND 

STOP 

END 
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c 

c 

c 

c 

c 

c 

c 

c 


U^ED  T0  illustrate  application  OF  ‘ULSTSQ’  to 

CALCULATE  THE  COEFFICIENTS  OF  A  POLYNOMIAL  OF  ORDER  IDEGRE  1 
^HJ^,REPRESENTS  THE  'BEST' FIT  T°  *  SERIES  OF  DATA  POINTS 

values  of  VIRTUAL  window,  device  area,  and  line  type  are 
USED.  EACH  OF  THE  DATA  POINTS  ARE  PLOTTED  WITH  A  ■  +  ’  AFTER 
IS  CALLED,  THE  POLYNOMIAL  IS  THEN  GRAPHED  USING  THE 
COEFFICIENTS  WHICH  WERE  COMPUTED. 


PARAMETER  IDEGRE  =  7 
DIMENSION  A(IDEGRE),X(20),Y(20) 

DATA  X/0.,5.,  1 0.,  1  5.,  20.,  25.,  30.,  35.,  40.,  45.,  50., 

55.,  60.,  65.,  70.,  75.,  80.,  85.,  90.,  95./ 

DATA  Y/20.,  25.,  30.,  35.,  30.,  25.,  20.,  1  5.,  1 0.,  1  5.,  20. 

25.,  30.,  35.,  40.,  45.,  50,,  55.,  60.,  65./ 

ENTER  GCS,  DRAW  OUTLINE,  SET  TYPE  AND  DEGREE  OF  FIT 

CALLUSTART 
CALL  UOUTLN 

CALL  UPSET  (‘POLYNOMIAL’, FLOAT(IDEGRE-1 )) 

CALL  USET  (‘N  +  ’) 


PLOT  POINTS 

DO  2  1  =  1,20 
CALLUPEN(X(I),Y(I)) 
2  CONTINUE 


MOVE  PEN  TO  ORIGIN,  COMPUTE  LEAST  SQUARES  LINE 

CALLUMOVE  (0.0,  0.0) 

CALL  ULSTSQ  (X,Y,20.,A) 

PLOT  LEAST  SQUARES  LINE  APPROXIMATING  POINTS 

DO  5  1  =  1, 100 
YO  =  A(1) 

XO  =  FLOAT(l) 

XK  =  XO 

DO  4  J  =  2,  IDEGREE 
YO  =  A(J)*XK  +  YO 
XK  =  XK*XO 

3  CONTINUE 
CALLUPEN  (XO,YO) 

4  CONTINUE 
CALLUEND 
STOP 
END 


EXAMPLE  VI-10 
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PARAMETER  JDE6RE-7 

DIMENSION  ACIDE8RE5.XC203.YC205 

DATA  X/0..B.,  10.,  16.,Z0.,2B.,30.,36.40^46.^ 

&  s0.,6S.,e0.,e6.<,70.,7E.,60.<,86.,9O.,s6./ 

DATA  Y/0.,6.,20..32..4Ow6B.  O0.160.16Oij,4«^ 

&  40.,37.,36.,37.,‘42.,48.,S«.,6«wS2w0B./ 


CALL  USTART 
CALL  UOUTLN 

CALL  UPSET  C' POLYNOMIAL', 
CALL  U6ET  C'ACENTERO 
CALL  USET  C'N**-0 
DO  2  I  "  I,  20 
CALL  UPEN  CXCI5,  YCI55 


FL0ATCIDE8RE“15? 


2  CONTINUE 

CALL  USET  C'LINEO 
CALL  UMOVE  C0.0,0.07 
CALL  ULSTSQ  CX,Y,20.„A5 
DO  B  I  -  1,  100 
Y0  -  AC1 5 
X0  -  FLOAT CI5 
XK  -  X0 

DO  4  J  *  2,  IDEGRE 
Y0  -  ACU5  •*  XK  «■  Y0 
XK  -  XK  h  X0 
4  CONTINUE 

CALL  UPEN  CX0, Y07 
6  CONTINUE 
CALL  UEND 
STOP 
END 
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CHAPTER  VII 


HIGH  LEVEL  GRAPHICS 


High  Level  Plotting  Facility 

UPLOT  is  a  general-purpose  composite  plotting  subroutine  which  may  be  used  to  graph 
full-screen  representations  of  complete  arrays  of  data.  Through  the  use  of  common 
default  options,  UPLOT  provides  sufficient  flexibility  to  meet  the  majority  of  plotting 
requirements;  however,  should  the  user  desire  to  change  any  of  the  applicable  options, 
UPLOT  will  permit: 

A.  Rectangular,  semi-logarithmic,  log-log,  or  polar  plotting; 

B.  Automatic  or  forced  scaling  of  data  values; 

C.  Axes  presentation  and  format  options,  to  include  alphanumeric  labeling. 
UPLOT  may  be  called  by  the  following  sequence: 

CALL  UPLOT  (X,Y, CURVES,  PARRA Y.OPTARY) 

CURVES  is  a  single-valued  variable  which  denotes  the  number  of  curves  to  be  plot  ed. 
PARRAY  is  an  array  which  describes  the  number  of  data  points  for  each  curve;  e.g.,  PAR- 
RAY(1 )  is  the  number  of  data  points  comprising  the  first  curve,  PARRAY(2)  is  the  number 
of  points  for  the  second  curve,  etc  OPTARY  is  a  character  array  which  specifies  the 
data  presentation  format  applicable  to  each  given  curve.  Each  element  of  OPTARY  nus 
not  exceed  4  characters  in  length,  and  must  represent  a  valid  pen-status  option  such  as 
‘LINE’,  'VECT,  etc.  Since  PARRAY  and  OPTARY  follow  the  same  general  nomenclature 
in  describing'the  characteristics  of  a  given  curve,  both  of  these  arrays  must  have  as 
many  elements  as  there  are  curves  to  be  plotted.  Arrays  X  and  Y  contain  the  actual  data 
values  grouped  by  curve.  The  size  of  the  X  and  Y  arrays  must  be  equal  to  the  sum  of  the 
elements  of  PARRAY.  The  general  format  of  each  of  these  arrays  is  outlined  in  the 
following  figure. 


Contents  of  Arrays  Used  in  UPLOT 

PURPOSE  OF  PLOT  -  Plot  three  curves  having  8,  4  and  5  points  each 


X 

Y 

CURVES 

PARRA Y 

OPTARY 

Curve  1 

x 11 

x 

Y„ 

Y,o 

3. 

8. 

4. 
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5. 
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Yu 
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Yu 
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Yu 
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Curve  3 


' 31 
*32 
*33 
*34 
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'31 

*32 

*33 

*34 

*35 


For  those  users  desiring  to  plot  only  a  single  curve  using  the  current  line  type  there 
uTlOTI  SohersIurnfi°hrUPLO  T  ~  UtPL0T1  ~  which  has  a  simplified  calling  sequence. 
Z  °0 lining  sequent:  °P"°"S  'h'°U9h  UPL0T  and  msy  be  oalled  * 


CALL  UPL0T1  (X.Y.PTS) 


X  and  Y  are  arrays  containing  the  data  values  to  be  plotted  and  PTS 
variable  indicating  the  number  of  points  which  comprise  the  curve. 


is  a  single-valued 


The  visual  results  obtained  through  UPLOT  depend  upon  the  status  of  the  GSA  at  the 

A"  'he H‘?h-Ievel  S'^cs  parameter,  are  assignee  detZ 
hn  bl  USTARV  lnd  may  be  modlfied  trough  conventional  calls  to  USETand  UPSET. 
tiih°“°h™uy  ofJheae  options  will  be  presented,  it  is  not  the  intent  of  this  chapter  to 
discuss  each  particular  option  in  detail,  further  information  may  be  found  in  the  GCS 
Programmer's  Reference  Manual. 


Coordinate  System  Options 

meefo7owiPngSm!,nne!dinale  SyS'emS  a0P"cable  ,0  UPL0T  are  through  USET  in 


CALL  USET  (‘RECTANGULAR’) 
CALL  USET  (‘POLAR’) 


i  n  er  RECTANGULAR  coordinates,  the  user  is  given  the  option  of  specifying  linear  or 

xmrAVPQ  vinrAYce  th®  mdependent  and  dependent  variables:  NOLOGAXES 
ii^Gh^Eth’  YL°GAX^S  and  XYLOGAXES.  When  logarithmic  axes  are  specified  the 
UPSET  i  tS  specifying  the  base  of  the  logarithmic  transform  via  a  call  to 

denote  t h p  h f  th  m  nUmber‘  W'th  1  °‘  bem9  default  or  the  character  string  IHE  to 
denote  the  base  of  the  Napierian  logarithm.  The  call  to  UPSET  is 


CALL  UPSET  (‘BASE’  base) 


where  base  is  the  base  of  the  logarithms  as  described  above. 


Scaling  Options 

Tjasr  sssssiaff  ^ca,nna  01  daia  ™,ue*  «*  *  »r.Phio.i  disPlay 

unaer  UPLOT  AUTOSCALE’,  FULLSCALE’,  and  ‘OWNSCALE’.  Under  AUTOSCALE 

ohrLrpnt9  h°  VflU?s  t0  be  plotted  is  examined  and  scaling  occurs  so  that  the  graph  will  be 

?m  ,  2??.  ?  mCe  nUmberS  at  the  tlc  marks  on  ‘he  axis  (if  requested)  The 

no/ 'appear  OWNSCALE^seJ  fhUT°?C/?LE  *ith  the  exception  that  ‘nice’  numbers  may 
appear.  OWNSCALE  uses  the  virtual  window  established  by  the  user  upon  entrv  to 

UPLOT  in  order  to  scale  the  data  values,  hence,  a  zero-value  is  not  forced  on  the  X-axis 
hus,  nice  numbers  may  not  necessarily  appear  as  numeric  labels,  and  all  of  the  data 
points  may  not  be  displayed  should  they  extend  beyond  the  window  limits. 
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There  are  also  two  options  relating  to  the  calculation  of  the  scale  factors,  ‘NEWSCALE’ 
and  ‘OLDSCALE’.  With  the  ‘NEWSCALE’  option,  the  scale  factors  used  to  map  the  data 
onto  the  display  screen  is  always  recalculated.  Specifying  ‘OLDSCALE’  results  in  this 
calculation  being  bypassed,  with  the  result  that  a  scaling  factor  used  in  a  previous  plot  is 
used  for  the  current  plot.  This  otter  results  in  an  increase  in  speed  at  which  the  p,  Ms  are 
produced. 


General  Purpose  Axes  Creation 

Subroutine  UAXIS  is  invoked  by  subroutine  UPLOT  to  generate  the  desired  axes  for  the 
input  data  arrays  It  is  specified' 

CALL  UAXIS(XMIN,XMAX,YMIN,YMAX) 


Axes  Options 

The  options  which  apply  to  the  axes  may  be  further  subdivided  into  the  following  catego¬ 
ries: 

A.  Axes  existence  options 

B.  Axes  format  options. 

C.  Axes  positioning  options 

D.  X  and  Y  labeling  option 

E.  Numeric  label  format  options. 

‘XYAXES’,  ‘XAXIS’,  ‘YAXIS’,  dnd  ‘NOAXES’  comprise  the  USET  options  which  specify  the 
existence  of  an  axis  XYAXES  indicates  that  both  X  and  Y  axes  are  to  be  drawn,  whereas 
the  XAXIS  or  YAXIS  options  are  be  used  when  only  one  of  the  respective  axes  is  desired. 
The  NOAXES  option  will  suppress  the  display  of  the  X  and  Y  axes,  but  will  permit  axis 
labelling  should  the  user  so  desire.  The  existence  or  lack  of  any  axis  does  not  influence 
the  scaling  mode  which  the  user  has  requested. 

The  axes  format  options  consist  of  allowing  the  user  to  specify  either  ‘PLAINAXES’, 
‘TICAXES’,  or  ‘GRIDAXES’.  Under  PLAINAXES,  the  specified  axis  (or  axes)  will  appear 
as  a  solid  line.  The  TICAXES  option  will  force  the  axes  to  be  drawn  as  ticked  lines,  with 
the  tic  intervals  specified  by  the  UPSET  options: 

CALL  UPSET  (‘TICX’, XINTERVAL) 

CALL  UPSET  (‘TICY’, YINTERVAL) 

XINTERVAL  and  YINTERVAL  are  single-valued  REAL  variables  which  specify  the  inter¬ 
val  (in  current  units)  at  which  tic  marks  are  to  appear  on  the  X  and  Y  axes  respectively. 
Under  the  default  values  of  zero  X  and  Y  tick  intervals,  UPLOT  will  choose  suitable  inter¬ 
vals  based  upon  the  axes  existence  and  data  scaling  options  specified  by  the  user.  The 
GRIDAXES  option  should  be  used  whenever  grid  lines  are  desired  for  the  axes  which 
have  been  defined.  The  grid  spacing  will  be  determined  in  the  same  manner  as  the  tic 
interval  under  TICAXES.  Under  POLAR  coordinates,  XINTERVAL  defines  the  radial  dis¬ 
tance  between  concentric  circles  which  comprise  the  grid  lines  for  the  R-axis;  whereas, 
YINTERVAL  specifies  the  angular  increment  at  which  grid  lines  which  be  drawn  for  the 
O-axis. 
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The  user  may  position  his  axes  through  the  use  of  the  following  options:  ‘EDGEAXES’ 
‘ZEROAXES’,  ‘XZEROYEDGE’,  'YEDGEXZERO',  ‘XEDGEYZERO’,  and  ‘YZEROXEDGE’.' 
The  EDGEAXES  option  indicates  that  the  axis  (or  axes)  is  to  be  oriented  near  the  edges 
of  the  currently  defined  device  area.  When  the  EDGEAXIS  option  is  used  in  conjunction 
with  XYAXES  and  OWNSCALE,  UPLOT  will  generate  X  and  Y  axes  which  intersect  at  the 
minimum  values  contained  within  the  X  and  Y  arrays.  In  addition,  the  axes  will  be  posi¬ 
tioned  near  the  left  and  bottom  edges  of  the  device  area.  Should  the  minimum  and  max¬ 
imum  values  of  the  X  and  Y  arrays  constitute  an  interval  which  contains  zero,  the 
ZEROAXES  option  may  be  used  to  force  the  intersection  of  the  axes  through  the  given 
zero  point.  Should  ZEROAXES  be  specified,  and  zero  is  not  contained  within  the  defined 
interval,  EDGEAXES  will  be  generated.  XZEROYEDGE,  YEDGEXZERO,  XEDGEYZERO, 
and  YZEROXEDGE  options  are  merely  extensions  of  the  EDGEAXES  and  ZEROAXES 
options,  and  are  subject  to  the  constraints  outlined  above. 

The  user  is  provided  with  the  ability  to  control  the  format  under  which  the  X  and  Y  axes 
are  labeled  through  the  use  of  the  following  options:  'NOXLABEL',  ‘XNUMERICLABEL’ 
‘XALPHALABEL’,  ‘XBOTHLABELS’,  ‘NOYLABEL’,  ‘YNUMERICLABEL’,  ‘YALPHALABEL’’ 
and  YBOTHLABELS’.  ‘NOXLABEL’  and  ‘NOYLABEL’  should  be  used  when  the  labeling 
of  the  X  and  Y  axes  is  to  be  supressed.  The  ‘XNUMERICLABEL’  and  ‘YNUMERICLABEL’ 
options  indicate  that  numeric  labels  are  to  be  created  along  the  X  and  Y  axes  at  the  tic 
intervals  specified  by  ‘TICX’  and  ‘TICY’  respectively.  The  actual  values  for  the  numeric 
labels  will  be  based  upon  the  axes  scaling  options  previously  discussed. 
XALPHANUMERIC  and  ‘YALPHANUMERIC’  allow  the  user  to  generate  alphanumeric 
labels  (or  titles)  for  each  axis.  The  actual  information  to  be  displayed  is  defined  through 
a  call  to  UPSET: 


CALL  UPSET  CXLABEL’.XDATA) 

CALL  UPSET  (  YLABEL’.YDATA) 

XDATA  and  YDATA  are  strings  of  up  to  40  characters  in  length,  with  the  standard  string 
termination  character  inserted  at  the  end  of  the  information.  The  XBOTHLABELS  and 
YBOTHLABELS  options  are  used  when  numeric  as  well  as  alphabetic  labels  are  desired. 

The  user  is  provided  with  the  ability  to  control  the  format  under  which  numeric  labels  will 
be  printed  through  the  use  of  the  ‘BESTFORMAT’,  ‘IFORMAT’,  and  ‘GFORMAT’  options. 
Under  ‘FORMAT’,  ‘EFORMAT’,  all  numeric  labels  will  appear  as  integers,  with  truncation 
occurring  for  any  non-integral  values.  EFORMAT  and  GFORMAT  will  generate  labels 
which  will  be  edited  into  either  standard  FORTRAN  *E’  or  ‘G’  formats  respectively. 
BESTFORMAT  implies  that  the  numeric  labels  are  to  be  output  under  the  format  which  is 
most  appropriate  for  the  given  label. 

Time  Series  Axes 

In  addition,  there  is  the  axes  routine,  UTAXIS,  that  permits  the  user  to  select,  scale  and 
label  time  series  axes.  For  further  information  on  this  routine,  see  the  subroutine 
description  section.  It  is  specified: 

CALL  UTAXIS  (BEG  PER, PERIOD,  YMIN,YM  AX) 


Curve  Fitting  Options 


UPLOT  provides  an  additional  facility  for  those  users  desiring  to  fit  linear,  least-squares 
polynominal,  and  spline  curves  to  their  data  points.  Interested  users  are  directed  to  the 
detailed  descriptions  of  UPLOT,  ULSTSQ,  and  ULINFT  contained  within  GCS  pro¬ 
grammer’s  reference  manual. 
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Extended  High-Level  Graphics 

For  data  presentation  formats  extending  beyond  those  available  through  UPLOT  and 
UPLOT1,  a  series  of  generalized  histogram,  barchart  and  piechart  utility  subroutines 
have  been  incorporated  into  GCS.  These  subroutines  are  comprehensive  enough  to  per¬ 
mit  their  utilization  as  the  core  of  a  complete  data  analysis  and  display  program;  without 
compromising  the  versatility  to  be  incorporated  into  a  graphics  program  within  which 
they  play  a  relatively  minor  role. 

Histogram  generation  facilities  are  provided  through  the  use  of  subroutine  UHISTO: 

CALL  UHISTO  (DATA.XN, CELLS) 

DATA  is  a  REAL  array  containing  the  data  values  from  which  the  histogram  is  to  be  con¬ 
structed,  XN  is  a  single-valued  REAL  variable  which  is  used  to  specify  the  number  of  ele¬ 
ments  in' the  DATA  array  ;  and  CELLS  is  a  single-valued  REAL  variable  which  designates 
the  number  of  cells  (or  bars)  which  are  to  appear  on  the  histogram  The  standard  axes 
existance,  labeling  and  scaling  options  previously  discussed  for  UPLOT  also  apply  to 
UHISTO,  with  the  exception  of  the  GRIDAXIS  option  for  the  X  and  Y  axes,  and  ‘TICAXIS’ 
for  the  Y  axis. 

Subroutine  UBAR  may  be  invoked  whenever  the  user  desires  to  generate  a  barchart. 

CALL  UBAR  (DATA, XN, LABELS, SLABEL) 

DATA  and  XN  are  interpreted  in  the  same  manner  as  described  above  the  UHISTO. 
LABELS  is  a  character  array  which  is  used  to  specify  the  label  for  each  XN  values  stored 
in  DATA.  SLABEL  is  a  single-valued  REAL  variable  which  defines  the  length  (in  charac¬ 
ters)  of  each  element  of  the  LABELS  array.  Should  UBAR  encounter  the  standard  string 
termination  character  (;)  while  processing  any  of  the  label  items,  no  additional  charac¬ 
ters  are  obtained  from  the  item  and  the  string  prior  to  the  terminator  is  scaled  to  a  string 
of  SLABEL  characters  in  length. 

Subroutine  UCHART  may  be  invoked  whenever  the  user  desires  to  gnerate  a  grouped 
bar  chart  for  multi-valued  data. 

CALL  UCHART(ARRAY, GROUPS, BARS, LABELS, YMAXL) 

Standard  piechart  generation  facilities  are  available  under  GCS  through  subroutine 
UPIE  which  may  be  called  by  the  following  sequence: 

CALL  UPIE  (DATA, XN, LABELS, SLABEL) 

DATA,  XN  LABELS  and  SLABEL  are  interpreted  in  the  same  manner  as  under  UBAR. 


vii-5 


ooooo  oooo  ooo 


C  SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  SUBROUTINE 
C  ‘UPLOT 1  EIGHT  CURVES  WILL  BE  PLOTTED  IN  POLAR  COORDINATES, 

C  USING  THE  SINGLE-CURVE  POLAR  PLOTTING  ROUTINE.  THE  PURPOSE  OF 
C  THIS  EXAMPLE  ISTO  ILLUSTRATE  THE  USE  OF  THE  HIGH-LEVEL 
C  SUBROUTINE  TO  PLOT  SINGLE  CURVES  WITHIN  THE  USER-DEFINED  DEVICE 
C  AREA.  NO  AXES  OR  AXES  LABELING  IS  REQUESTED.  THIS  WAS  WRITTEN 
C  FOR  A  TEKTRONIX  401  0/401  3  TERMINAL. 

C 

C  INITIALIZE  CONSTANTS  AND  ANGLES 
C 

DIMENSION  R(361 ),  THETA(361 ) 

DATA  PI,W,YO/3.1  41  5925,0.0,4.71  / 

DO  1  1  =  1,361 

1  THETA(l)  =  FLOAT(l)  *PI/180.0 

ENTER  GCS,  SET  FOR  POLAR,  RADIAN  MEASURE,  NO  AXES  AND  NO  LABELS. 

CALLUSTART 
CALLUSET  (‘POLAR’) 

CALL  USET  (‘RADIANS’) 

CALL  USET  (‘NOAXES’) 

CALL  USET  ONOXLABEL’) 

INCREMENT  LOCATION  OF  DEVICE  PLOTTING  AREA,  AND  PLOT  THE. 
FIGURES 

D03  1  =  1,2 
XO  =  -1 .5 
YO-YO-1.8 
DO  3  J  =  1 ,4 
W= W+0.5 
XO-XO+1.8 

CALL  UDAREA  (XO,(XO+ 1 ,5),YO,(YO  + 1 .5)) 

CALL  UOUTLN 
DO  2  K=  1,361 

2  R(K)  =  1.2-0-.7*(ABS(COS(W*THETA(K)))-ABS(SIN(W*THETA(K)))) 

PLOT  361  DATA  POINTS  SPECIFIED  BY  ‘R’  AND  ‘THETA’  USING  THE 
STANDARD  LINE  OPTION  WITHIN  THE  DEVICE  AREA  WE  HAVE  DEFINED 
NOTE  THAT  NO  AXES  OR  AXES  LABELING  WAS  SPECIFIED. 

CALL  UPLOT  1  (R, THETA, 361.0) 

3  CONTINUE 
CALL  UEND 
STOP 
END 


EXAMPLE  VII-1 
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DIMENSION  RC361 ?, THETA C361 ? 

DATA  PI, W,Y0/3. 14160265,0.6, 4. 71/ 

DO  l  I  -  I,  36  J 

1  thetaci?  -  float ci?  •»  pi  /  iso. a 

CALL  USTART 

CALL  US FT  C 'POLAR'? 

CALL  USET  C 'RADIANS'? 

CALL  USET  C' NOAXES'? 

CALL  USET  C'NOXLABEL'? 

CALL  USET  C'NOYLABEL'? 

DO  3  I  -  1,  2 
X0  ~  -1 .6 
Y0  -  Y0  -  1.8 
DO  3  U  -  1,  4 
W  -  W  0.6 
X0  "  X0  1.8 

CALL  UDAREA  CX0,CXO*1 .6?,Y0,<YO+1 .6?? 

CALL  UOUTLN 
DO  2  K  09  1  301 

2  RCK?  -  1 .2^0.7»CABSCCOSCW*THETACK???-ABSCSINCW»*THETACK???? 
CALL  UPLOTl  CR, THETA, 36 1 .0? 

3  CONTINUE 
CALL  UEND 
STOP 

END 
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C  SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  SUBROUTINE 
C  'UPLOT1 DATA  VALUES  CONTAINED  IN  ARRAYS  'E2'  AND  'DB'  ARE  PLOTTED 
C  IN  A  CARTESIAN  COORDINATE  SYSTEM.  A  GRIDDED  AXES,  AND 
C  ALPHANUMERIC  AXES  LABELING  ARE  PROVIDED  AS  ADDITIONAL  OPTIONS. 
C  DEFAULT  VALUE  OF  DEVICE  AREA  IS  USED. 

C 

C  LOAD  LABELS  INTO  ARRAYS,  INITIALIZE  ARRAYS. 

C 

DIMENSION  DB(61),E2(61),ARRAY(8) 

CHARACTER  XLABEL*40,YLABEL*40 

DATA  XLABEL/'STEADY-STATE  EXCITATION  VOLTAGE  (VOLTS);'/ 

DATA  YLABEL/'EX CITATION  REFERENCED  TO  1  V  (DB);'/ 

DO  1  1  =  1,61 
DB(I)  =  FLOATO-1 ) 

1  E2 (I)  =  1  0  0**(DB(l)/20.0) 

ENTER GCS 

CALL  USTART 
CALL  USTUD  (ARRAY) 

INDICATE  THE  DATA  TO  BE  USED  FOR  AXES  LABELING  INFORMATION 

CALL  UPSET  ('XLABEL'.XLABEL) 

CALL  UPSET  (YLABEL'.YLABEL) 

CALL  UPSET  ('TERMINATOR', ';') 

INDICATE  THAT  GRIDDED  AXES,  TOGETHER  WITH  NUMERIC  AND  ALPHA 
LABELS  ARE  DESIRED. 

CALL  USET  ('GRIDAXES') 

CALL  USET  ('XBOTHLABEL') 

CALL  USET  ('YBOTHLABEL') 

CALL  'UPLOT 1 '  TO  PLOT  A  SINGLE  CURVE  OF  61  POINTS  USING  'E2'  AND  'DB' 
STANDARD  LINE  OPTION  IS  REQUESTED 

CALL  UPLOT  1  (E2.DB.61  0) 

USE  CROSSHAIRS  TO  DEFINE  LOWER  BOUNDARY  THEN  UPPER  BOUNDARY 
THEN  CALL  UWINDO  AND  PLOT  JUST  THAT  PORTION. 

CALL  UGRIN  (XL,YL,IC) 

CALL  UGRIN  (XU, YU, 1C) 

CALL  UWINDO  (XL, XI, YL, YU) 

CALL  USET  ('OWNSCALE') 

CALL  UDAREA  (ARRAY(5),  ARRAY(6),  ARRAY(7),  ARRAY(8) 

CALL  UERASE 
CALL  UPLOT  1  (E2.DB.61.) 

CALLUEND 
STOP 
END 


EXAMPLE  VII-2 
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DIMENSION  DBC60,E2C60 

Sa^XlSqV^STEaS^STaTE" EXCITATION  VOLTA0E  CVOi_TS5 ;  '  / 
data  ylabdI// excitation  REFERENCED  TO  1 VCDS 5; */ 

DO  1  I  -  1,  61 
DSCI5  -  FLOAT CI-15 
1  E2CI5  -  10.0»m*CDBCI5  /  20.05 
CALL  USTART 

CM  i  UPSET  C ' TERMINATOR ' . '5 
CALL  UPSET  C'XLABEL'.XLABEL5 
CM  i  UPSET  C'YLABEL', YLABEL5 
CM  l  USET  C 'GRID AXES' 5 
CALL  USET  C'XBOTHLABEL'5 
CALL  USET  C'YBOTHLABEL'5 
CALL  UPLOTJ  CE2,DB,61 .05 
CALL  UEND 
STOP 
END 
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C  SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  SUBROUTINE 
C  ‘UPLOT 1  DATA  VALUES  CONTAINED  IN  ARRAYS  'E2’  AND  'DB’  ARE  PLOTTED 

C  IN  A  SEMI-LOGARITHMIC  COORDINATE  SYSTEM.  A  GRIDDED  AXES  AND 

C  ALPHANUMERIC  AXES  LABELING  ARE  PROVIDED  AS  ADDITIONAL  OPTIONS 
C  DEFAULT  VALUE  OF  DEVICE  AREA  IS  USED 
C 

INITIALIZE  ARRAYS,  LOAD  LABELS  INTO  LABEL  ARRAYS. 

DIMENSION  DB(61),E2(61) 

CHARACTER  XLABEL*40,YLABEL*40 

DATA  XLABEL/'STEADY-STATE  EXCITATION  VOLTAGE  (VOLTS)  ’/ 

DATA  YLABEL/’EXCITATION  REFERENCED  TO  1 V  (DB)-’/ 

DOI  1  =  1,61 
DB(I)  =  FLOATO-1 ) 

1  E2(l)  =  10.0**(DB(l)/20.0) 

ENTER GCS 

CALL  USTART 


INDICATE  THE  DATA  TO  BE  USED  FOR  AXES  LABELING  INFORMATION. 

CALL  UPSET  (‘TERMINATOR’, 

CALL  UPSET  (‘XLABEL’.X LABEL) 

CALL  UPSET  CYLABEL’.YLABEL) 


INDICATE  THAT  GRIDDED  AXES,  TOGETHER  WITH  NUMBERIC  AND  ALPHA 

,^!^°E8IRED*  ALS0  SPECIFY  WHICH  AXIS  IS  LINEAR,  AND  WHICH  IS 
LUoARITHMIC. 


CALL  USET  (‘GRIDAXES’) 
CALL  USET  (‘XBOTH LABEL') 
CALL  USET  (‘YBOTHLABEL’) 
CALL  USET  (‘LOGXAXIS’) 


CALL  ‘UPLOT  1 '  TO  PLOT  A  SINGLE  CURVE  OF  61  POINTS 
STANDARD  LINE  OPTION  IS  REQUESTED. 


USING  ‘E2’  AND  ‘DB’. 


CALL  UPLOT  1  (E2,DB,61 .0) 

CALLUEND 

STOP 

END 


EXAMPLE  VII-3 
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DIMENSION  DBC61 5,E2C61  5 

S^xlabel/^^^  VOLTAGE  CVOLTS5,'/ 

DATA  YLABEL/ ' EXCITATION  REFERENCED  to  1 VCD85 j  */ 

DO  I  I  "  I.  61 
DBCI5  -  FLOATCI-15 
1  E2CI5  -  10.0*m»CD8CID  /  20.05 
CALL  USTART  _  ,  _ 

CALL  UPSET  C' TERMINATOR',  ;  5 
CALL  UPSET  C'XLABEL' , XLABEL5 
CALL  UPSET  C'YLABEL', YLABEL5 
CALL  USET  C'GRIDAXES'5 
CALL  USET  C'XBOTHLABEL'5 
CALL  USET  C'YBOTHLABEL'5 
CALL  USET  C'XLOSAXISO 
CALL  USET  C'LINYAXIS'5 
CALL  UP LOT 1  CE2,DB,61 .05 
CALL  UEND 
STOP 
END 
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SAMPLE  PROGRAM  TO  ILLUSTRATE  APPLICATION  OF  GCS  SUBROUTINE 
'UHISTO'. 

ALLOCATE  AN  ARRAY  TO  STORE  DATA  VALUES,  AND  INITIALIZE  A  COUNTER. 

DIMENSION  DATA  (1000) 

DATA  XN/1  000./ 

BUILD  DATA  FROM  SINE  VALUES 
DO  2  1=1,1000 

2  DATA(I)  =  SIN(FLOAT(l)/1  50.) 

ENTER  GCS  AND  INDICATE  THAT  THE  ENTIRE  DEVICE  AREA  IS  DESIRED. 

CALL  USTART 

CALL  UPSET  ('TERMINATOR', ';') 

CALL  USET  ('LARGE') 

CALL  USET  ('PERCENTUNITS') 

CALL  UDAREA  (0.,1  00„0.,1  00.) 

INDICATE  THAT  THE  HISTOGRAM  IS  TO  BE  'FULLSCALED'  AND  THAT  THE  X 
AXIS  IS  TO  HAVE  ALPHABETIC  AS  WELL  AS  NUMERIC  LABELS.  ALSO  SET 
THE  ALPHABETIC  LABEL  WHICH  IS  TO  BE  PRINTED  ON  THE  X  AXIS. 

CALL  USET  ('FULLSCALE') 

CALL  USET  ('X  BOTH  LABELS') 

CALL  USET  ('XLABEL',  'DISTRIBUTION  OF  VALUES  OF  SINE;') 

PROCESS  THE  DATA  ARRAY  USING  20  CELLS. 

CALL  UHISTO  (DATA, XN, 20.) 

TERMINATION 

CALL  UEND 

STOP 

END 


EXAMPLE  VII-4 
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1.  TO  1.1 

0 

.9  TO  1. 

130 

.8  TO  .0 

87 

.7  TO  .8 

46 

.6  TO  .7 

4® 

.S  TO  .6 

36 

.4  TO  .S 

34 

.3  TO  .4 

44 

.2  TO  .3 

47 

.1  TO  .2 

46 

0.  TO  .1 

46 

-.1  TO  0. 

3® 

-.2  TO  -.1 

30 

-.3  TO  -.2 

31 

-.4  TO  -.3 

32 

-.6  TO  -.4 

34 

-.6  TO  -.6 

30 

-.7  TO  -.6 

39 

-.8  TO  -.7 

40 

-.9  TO  -.8 

68 

, - ■ - - - . - T— 1 - ' - '  '  '  ' 

8  |2  24  86  “W  M  72  84  M  1®®  12*4  132  144 

nTSTPTBlITIflN  OF  VALUES  OF  SINE 


dimension  data Cl 008 > 

DATA  XN/ 1 000 • / 

DO  2  I  m  1 -  1®®®  _  * 

2  DATA  Cl  5  **  8INCFLOATCI5/160.5 
CALL  USTART 
CALL  USET  C'LARSEO 

pail  USET  C'PERCENTUNTTSO 
CALL  UDAREA  C®.,  I®0**®;/  l®®-> 
CALL  USET  C'FULLSCALfO 
CALL  USET  C'XBOTHLABELSO 


CALL  USET  C'XBOTHLABELS'7 

Sftt  C'2^!“l8TRxiuTX0N  OF  VALUES  OF  SB*,'* 

rVTT  .  ..  sr\  aTA  VKI  ^ 


CALL  UHISTO  CDATA,XN,2®.5 
rALL  UEND 


STOP 

END 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  GCS 
SUBROUTINE  ‘UBAR’  TO  DISPLAY  A  BAR-CHART. 


ALLOCATE  ARRAYS  TO  STORE  DATA  VALUES  AND  LABELS  FOR  THE  CHART. 

DIMENSION  DATA  (7) 

CHARACTER  LABELS*-!  2  (7) 

DATA  DATA,Y/4.,30.,48.,1  0.,2.,2.,4.,1  00./ 

DATA  LABELS/'ALGOL;'  ‘COBOL;’,  ‘FORTRAN;’  ‘GMAP-’  ‘JOVIAL-’ 
‘SIMSCRIPT;’,  ‘SNOBOL;’/ 


CALLUSTART 

CALL  UPSET  ('TERMINATOR',  ‘;’) 

CALL  USET  (‘XBOTHLABELS’)  ’ 

CALL  UPSET  (‘XLABEL’,  ‘TYPICAL  LANGUAGE  UTILIZATION  AT  USMA;’) 


? T0  DISPLAY  THE  DATA  VALUES  CONTAINED  WITHIN  THE  DATA 
ARRAY,  AND  LABELS  SPECIFIED  BY  THE  LABELS  ARRAY. 


CALL  UBAR  (DATA,FLOAT(NUMBER),LABELS,1  2.) 

WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  THIS  FORTRAN  PROGRAM. 

CALLUEND 

STOP 

END 


EXAMPLE  VII-5 
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TYPICAL  LAN6UA8E  UTILIZATION 


PARAMETER  NUMBER*? 

DIMENSION  DATACNUMBER? 

CHARACTER  LABELS**12CNUMBER3 

DATA  LABELS/ 'ALBOLj'i' ®BOLj  *  ¥  'FORTRAN*  '6MAP*  *  *  'UOVIAL* 
&  'SIMSCRIPT t' , 'SNQBOL*  4 / 

CALL  USTART 

CALL  UPSET  C 'TERMINATOR', '* O 

CALL  UPSET ^ C^XLABEL' ^TYPICAL  LANCUA8E  UTILIZATION*  O 
CALL  UBAR  CDATA, FLOAT CNUMBEJO  , LABELS, 1 2 . > 


CALL  UEND 

STOP 

END 
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f  mo^,PR0GRAM  USED  T0  ILLUSTRATE  application  of  gcs 
SUBROUTINE  ‘UPIE’.  IN  ADDITION  TO  USING  UPIE  TO  DISPLAY  A  PIE-CHART 
,E. i  ADDITIONAL  GRAPHIC  OUTPUT  IS  PERFORMED  THROUGH  USE  OF  ’ 


ALLOCATE  ARRAYS  TO  STORE  DATA  VALUES  AND  LABELS  FOR  THE  CHART. 

DIMENSION  DATA  (7) 

CHARACTER  LABELS‘1  2  (7) 

DATA  DATA,Y/4.,30.,48.,1 0„2.,2.,4.,1 00./ 

DATA  LABELS/'ALGOL;’  'COBOL;',  'FORTRAN;'  'GMAP;',  'JOVIAL'’ 
‘SIMSCRIPT;’,  'SNOBOL;'/ 


QCS,  INDICATE  THAT  AN  ALPHABETIC  LABEL  IS  DESIRED  FOR  THF  X 
AXIS,  AND  SPECIFY  THE  LABEL  WHICH  IS  TO  BE  PRINTED 


CALL  USTART 

CALL  UPSET  ('TERMINATOR',  *;’) 

CALL  USET  CXALPHABETIC’) 

CALL  UPSET  CXLABEL’,  ‘TYPICAL  LANGUAGE  UTILIZATION  AT  USMA;') 


CALL  UPIE  TO  DISPLAY  THE  DATA  VALUES  CONTAINED  WITHIN  THE  DATA 
ARRAY,  AND  LABELS  SPECIFIED  BY  THE  LABELS  ARRAY.  ™ 


CALL  UPIE  (DATA,FLOAT(N UMBER), LABELS,!  2.) 


SET  ADDRESSING  MODE  TO  'DEVICE’/'PERCENTUNITS'  SET  DEVICE  ARFA 
WHICH  UTIL|ZES  THE  ENTIRE  DISPLAY  SURFACE  AND  OUTpSf  VALUES  IN 

BEENGENERATED  RRAYS' ADJACENT  T0  THE  P|P-CHART  WHICH  HAS  JUST 


CALL  USET  ('DEVICE') 

CALL  USET  CPERCENTU NITS’) 
CALL  UDAREA  (0„1  00..0..1  00  ) 

DO  1  1  =  1, NUMBER 
Y  =  Y-(1  O0./FLOAT(NUMBER+  1 ) 
CALL  UMOVE  (0.,Y) 

CALL  UPRNT 1  (LABELS(I),'TEXT‘) 
CALL  UPRNT1  ('-;’, 'TEXT') 

CALL  UPRNT  1  (DATA(I), 'INTEGER') 
CALL  UPRNT1  ('%;', ‘TEXT) 
CONTINUE 


WRAP-UP  GRAPhICS  ACTIVITY  AND  TERMINATE  THIS  FORTRAN  PROGRAM. 

CALL  UEND 

STOP 

END 


EXAMPLE  VII-6 


ALGOL  -  4X 

COBOL  -  30* 

FORTRAN  -  48* 

6MAP  -  10* 

JOVIAL  -  2* 

SUBSCRIPT  -  2* 

SNOBOL  -  4* 


TYPICAL  LANGUAGE  UTILIZATION 


PARAMETER  NUMBER-7 

dimension  datacnumber? 

CHARACTER  LABELS*12CNUMBER? 

DATA  DATA,  Y/4., 30. ,48..  10. ,2. .2. ,4.,  100./ 

DATA  LABELS/' ALGOL; ' , ' COBOL; ' . 'FORTRAN; ' . 'GHAP; ' , 'JOVIAL;  , 
&  'SIMSCRIPT;', '8NOBOL;'/ 

CALL  USTART 

CALL  UPSET  C ' TERMINATOR'. '; O 

call  uset  c'Xalphabetic'? 

CM  i  UPSET  C'XLABEL', 'TYPICAL  LANGUAGE  UTILIZATION; O 
CALL  UPIE  CDATA. FLOAT CNUMBER?. LABELS. 12.? 

CALL  USET  C 'DEVICE'? 

CALL  USET  C'PERCENTUNITSO 
CALL  UDAREA  C0..  100.. 0.,  100.3 
DO  1  I  -  1.  NUMBER 
Y  -  Y  -  <100.  /  FLOAT CNUMBER* O) 

CALL  UMOVE  C0..Y? 

CALL  UPRNTl  CLABELSCl?. 'TEXT'? 


CALL  UPRNTl 

CALL  UPRNTl 

CALL  UPRNTl 

CONTINUE 

CALL  UEND 

STOP 

END 


C'  -  ; ', 'TEXT'? 
CDATACI?. ' INTEGER O 
C'*;'. 'TEXT'? 
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CHAPTER  VIII 

COORDINATE  SYSTEMS  AND  TRANSFORMATIONS 


An  Overview  of  GCS  Coordinate  Systems 

The  GCS  coordinate  system  options  have  been  designed  to  provide  adequate  flexibility 
for  the  user  in  order  to  enable  him  to  work  in  whatever  type  of  coordinate  system  env  ron- 
ment  is  most  natural  and  convenient  for  him  to  use  at  a  particular  point  in  his  prog.  am. 
There  are  several  areas  in  which  basic  options  exist;  however,  it  is  imperative  that  the 
user  fully  understand  the  basic  coordinate  system  under  GCS  before  attempting  to  alter 
any  of  the  default  options. 

The  GCS  default  coordinate  system  which  is  defined  at  the  start  of  a  GCS  program  (via  a 
CALL  USTART)  is  a  simple,  pre-defined  Cartesian  (rectangular)  X-Y  coordinate  system. 
No  special  options  such  as  semi-logarithmic  or  log-log  plotting  are  in  effect.  Axes  are 
not  rotated  with  respect  to  the  screen  or  plotbed  and  no  special  scaling  options  are  in 
force.  Distances  are  measured  from  the  origin,  not  incrementally  from  the  last  point  plot¬ 
ted.  As  described  in  Chapter  III,  any  drawing  done  in  this  coordinate  system  may  be 
viewed  through  an  adjustable  size  window  which  can  automatically  clip  off  irrelevant  or 
distracting  parts  of  the  picture. 

A  GCS  programmer  may  specify  that  he  wishes  to  use  one  of  three  coordinate  systems 
when  working  in  two  dimensions: 

Cartesian  (rectangular) 

Log-log  or  semi-logarithmic  rectangular 
Polar  coordinates. 

Points  or  lines  to  be  plotted  may  be  identified  either  by  absolute  coordinate  position  or 
relative  to  the  last  plotted  point  (incremental).  The  scale  at  which  plotting  is  to  occur 
may  be  user-specified  in  virtual  space  which  can  be  projected  onto  the  plotting  device  at 
any  desired  scale  or  it  may  be  directly  controlled  in  terms  of  dimensions  of  the  plotting 
device.  These  dimensions  may  be  specified  in  inches,  centimeters,  font-units 
(alphanumeric  character  heights  and  widths)  percent-units,  or  raster  units. 

In  addition  to  the  basic  or  SYSTEM  axis,  the  user  may  define  any  number  of  secondary 
USER  axis  systems  which  may  be  rotated,  translated,  and  scaled  differently  from  the 
SYSTEM  axis.  Such  secondary  USER  axes  may  be  defined  relative  to  the  basic  SYSTEM 
axis  or  relative  to  a  previously  defined  USER  axis.  This  feature  facilitates  the  definition 
of  complex  coordinate  systems  where,  for  example,  one  moves  freely  from  coordinates 
based  upon  a  location  on  a  satellite  circling  the  earth.  Similarly,  the  use  of 
simultaneously  maintaining  a  secondary  axis  whose  origin  is  a  point  on  the  curve, 
oriented  controlled  independently  of  one  another  and  defined  either  with  respect  to  the 
SYSTEM  axis  or  cumulatively  based  on  successive  transformations  on  a  series  of 
different  USER  axes.  Since  the  rotations  and  scaling  in  GCS  are  accomplished  by  stan¬ 
dard  matrix  operations  one  can  obtain  mathematically  accurate  visual  representations  of 
highly  abstract  vector  spaces  such  as  those  common  to  many  linear  programming 
applications. 


Coordinate  System  Definition 

In  order  to  provide  the  capabilities  discussed  above,  GCS  has  incorporated  a  very 
powerful  secondary  axis  system  which  allows  the  user  to  define  a  new  axis  origin.  The 
new  origin  can  be  displaced  from  the  current  origin,  oriented  about  the  new  center  point 
and/or  have  a  different  unit  length  for  the  X  and  for  the  Y  axis.  The  new  axis  is  defined 
through  subroutine  UCOSYS  which  is  called  by  the  following  sequence: 
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CALL  UCOSYS  (DX,DY,SCLX,SCLY, ANGLE) 

DX  and  DY  are  used  to  specify  (in  current  units  of  the  current  coordinate  system)  the 
position  of  the  origin  for  the  new  axis.  SCLX  and  SCLY  define  the  scale  of  the  new  axis 
unit  lengths  with  respect  to  their  sizes  in  the  current  axis  system.  ANGLE  is  used  to 
specify  the  rotation  (in  current  angular  units)  of  the  new  axis  about  its  origin. 

The  key  rule  to  be  remembered  is  that  every  axis  system  has  an  origin  which  is  coordi¬ 
nate  location  (0  ,0.);  all  rotation  occurs  about  this  center  point.  The  SYSTEM  origin  is  the 
primary  origin  for  the  default  axis  system.  In  virtual  space,  the  SYSTEM  origin  is  at  vir¬ 
tual  location  (0.,0.);  this  location  may  or  may  not  be  within  the  window  defined  by  the 
user.  In  device  space,  it  is  a  point  on  the  display  surface  (usually  at  the  lower  left  corner) 
which  is  at  raster  position  (0.,0).  At  any  time,  the  user  can  insure  that  his  coordinate 
addressing  is  interpreted  with  respect  to  the  primary  origin  by  making  the  following  call 
to  USET  prior  to  addressing: 


CALL  USET  ('SYSTEMAXIS') 

To  request  that  coordinate  specifications  be  interpreted  with  respect  to  the  user's  cur¬ 
rent  axis  system,  the  following  option  is  used: 

CALL  USET  (‘USERAXIS’) 

The  default  user  axis  coincides  with  the  system  axis.  When  a  new  user  axis  is  created  by 
subroutine  UCOSYS,  the  GCS  status  is  automatically  switched  to  'USERAXIS'.  When 
UCOSYS  is  invoked,  there  are  actually  two  USER  axes  created.  They  are  either  identical 
to  each  other,  or  one  ‘lags'  (in  a  mathematical  sense)  behind  the  other  by  one  USER  axis 
definition.  One  of  these  USER  axes  is  called  the  WORKING  axis  and  the  other  is  called 
the  REFERENCE  axis.  The  REFERENCE  axis  is  identical  to,  or  'behind'  the  WORKING 
axis.  Under  default  conditions,  the  REFERENCE  and  WORKING  axes  are  identical  to 
each  other;  furthermore,  these  axes  initially  coincide  with  the  SYSTEM  axis.  When  a 
new  USER  axis  is  defined,  it  is  created  from  the  REFERENCE  axis  and  entered  as  the 
WORKING  axis  transform.  If  UCOSYS  is  in  the  cumulative  mode,  then  the  new  WORK¬ 
ING  axis  definition  is  placed  back  into  the  REFERENCE  axis  transform.  Thus,  the 
REFERENCE  axis  may  be  viewed  as  a  permanent  axis,  while  the  WORKING  axis  may  be 
considered  as  only  temporary  in  nature. 

When  multiple  coordinate  systems  are  specified  by  the  user,  the  new  axis  is  computed 
independently  of  the  previous  USER  axis.  This  is  the  new  axis  which  is  computed  from 
the  last  permanent  axis  (usually  the  SYSTEM  axis)  and  replaces  any  previously  defined 
USER  axis.  This  feature,  which  is  the  default  condition  under  GCS,  is  selected  by  the 
following  call: 

CALL  USET  (‘WORKING AXIS') 

For  advanced  problems,  the  user  may  wish  to  define  multiple  coordinate  systems  that 
are  computed  on  a  cumulative  basis.  That  is,  the  new  axis  is  computed  from  the  last  per¬ 
manent  axis,  and  becomes  the  new  permanent  axis.  This  option  may  be  specified 
through  the  following  call: 

CALL  USET  CREFERENCEAXIS’) 

exist  several  useful  subroutines  within  GCS  which  are  subsets  of  subroutine 
UCOSYS,  and  facilitate  the  definition  of  a  secondary  axis  at  the  current  beam  position. 
Subroutine  UROTAT  creates  a  new  axis  rotated  about  an  origin  defined  by  the  current 
beam  position.  Subroutine  USCALE  defines  an  axis  at  the  current  beam  position  having 
a  specified  X  axis  and  Y  axis  scaling.  Subroutine  UORIGN  defines  a  new  axis  at  the  cur- 
rent  beam  position  with  no  change  of  scale  or  orientation.  These  subroutines  may  be 
invoked  by  the  calling  sequences: 
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CALL  UROTAT  (ANGLE) 

CALL  USCALE  (SCLX.SCLY) 

CALL  UORIGN 

ANGLE,  SCLX,  and  SCLY  are  interpreted  in  the  same  manner  described  for  subroutine 
UCOSYS.  After  the  subroutines  are  invoked,  the  current  beam  position  is  associated 
with  coordinate  location  (0.,0.). 

In  certain  situations,  such  as  the  display  of  unrelated  objects,  multiple  independent  sec¬ 
ondary  axis  transformations  must  be  created  simultaneously.  In  order  to  operate  upon 
and  modify  one  system,  it  is  necessary  to  save  the  previous  system  and  later  restore  it  as 
needed.  This  facility  is  available  under  GCS  through  the  use  of  the  following 
subroutines: 


CALL  USVTR  (ARRAY) 

which  is  used  to  save  the  current  transform,  and 

CALL  UNSVTR  (ARRAY) 

which  is  called  in  order  to  restore  a  transformation  from  the  array  ARRAY ,  where  ARRAY 
is  a  21  word  dimensioned  variable  Note  that  a  call  to  USVTR  does  not  affect  the  status 
of  the  Graphics  Compatibility  System,  but  that  a  call  to  UNSVTR  causes  the  restoration 
of  all  variables  and  switches  to  the  values  that  they  held  when  the  companion  USVTR 
was  invoked.  The  user  should  not  attempt  to  invoke  UNSVTR  for  an  array  without  pre¬ 
viously  saving  a  transform  into  that  array  by  use  of  USVTR. 

The  secondary  axis  transformation  feature  of  GCS  is  a  very  powerful  mathematical 
system  which  is  quite  useful  to  the  beginning  as  well  as  advanced  graphics  programmer. 
However,  certain  combinations  of  axis  composition  and  specification  will  produce 
results  which  are  mathematically  correct  but  not  easily  understood.  For  example,  the 
composition  of  a  cumulative  axis  from  an  axis  with  non-uniform  X  and  Y  scaling  will 
introduce  a  skew  factor.  For  additional  information  on  the  secondary  axis  implementa¬ 
tion  under  GCS,  interested  users  are  directed  to  the  subroutine  description  section. 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  THE  USE  OF  GCS  SUBROUTINE 
'UCOSYS'.  TWO  DISPLAYS  WILL  BE  DEFINED:  A  TRIANGLE  WILL  BE  PLOTTED 
IN  THE  DEFAULT  COORDINATE  SYSTEM;  AND  A  SQUARE  WILL  BE  DRAWN  IN 
A  USER-DEFINED  SECONDARY  AXIS  SYSTEM. 

ENTER  GCS,  DEFINE  A  NEW  VIRTUAL  WINDOW,  AND  OUTLINE  WINDOW. 

CALL  USTART 

CALL  USET  ('WORKINGAXIS') 

CALL  UWINDO  (-1  0 ,1 0..-1  0.,0.) 

CALL  UOUTLN 

PROVIDE  PEN  COMMANDS  TO  DRAW  A  TRIANGLE  IN  THE  DEFAULT  GCS 
COORDINATE  SYSTEM. 

CALL  UMOVE  (0.,0.) 

CALL  UPEN  (2..0.) 

CALL  UPEN  (0,,2.) 

CALL  UPEN  (0.,0.) 

DEFINE  A  SECONDARY  AXIS  WITH  AN  ORIGIN  AT  (5., 4.),  HAVING  THE  SAME  X 
AND  Y  SCALE  FACTORS  AS  THE  DEFAULT  SYSTEM,  AND  ROTATED  BY  45 


CALL  UCOSYS  (5..4..1  .,1  .,45.) 

PROVIDE  PEN  COMMANDS  TO  DRAW  A  SQUARE  WITHIN  THE  SECONDARY 
AXIS  THAT  WE  HAVE  JUST  DEFINED. 

CALL  UMOVE  (0.,0.) 

CALL  URECT  (3., 3  ) 


WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  THE  FORTRAN  PROGRAM. 

CALL  UEND 

STOP 

END 


EXAMPLE  VIII-1 
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CALL  USTART  .  , 

CALL  USeTC'UORKINaAXISO 
CALL  UUZNDO  <-ta.,  la.-  — la.,  ia.> 
CALL  UOUTLN 

call  umcve  ca.,a.d 

CALL  UPEN  C2..8.5 
CALL  UPEN  Ca.,2.5 
CALL  UPEN  C8.,8.5 
CALL  UC08Y8  CE.,4.,I.#I»#46.> 

call  UHCVE  ca.,8.5 

CALL  URECT  C3..3.5 

CALL  UEND 

8T0P 

END 
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C  SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  COMPOSITION  OF  MULTIPLE 
C  USER  AXES.  THE  AXIS  DEFINITION  WILL  BE  PERFORMED  IN  THE  ‘NON- 

C  CUMULATIVE’  OR  'WORKING  AXIS’  MODE.  ENTER  GCS,  DEFINE  A  NEW 

C  VIRTUAL  WINDOW,  AND  OUTLINE  DEFAULT  DEVICE  PLOTTING  AREA. 

C 

CALLUSTART 

CALL  USET  (’WORKING  AXIS’) 

CALL  UWINDO  (-2.,8.,-2.,8.) 

CALL  UOUTLN 

DRAW  AN  AXIS  AT  THE  CURRENT  AXIS  ORIGIN.  THIS  AXIS  DISPLAY 
SUBROUTINE  WILL  BE  INVOKED  DURING  LATER  PORTIONS  OF  THIS 
PROGRAMMING  EXAMPLE. 

CALL  AXIS 

MOVE  BEAM/PEN  TO  THE  ORIGIN  OF  THE  CURRENT  (SYSTEM)  AXIS,  THEN 
DEFINE  A  SECONDARY  AXIS  WITH  AN  ORIGIN  AT  (2., 5.)  AND  ROTATED  BY 
TWENTY  DEGREES 

CALLUMOVE  (0.,0.) 

CALLUCOSYS  (2.,5.,1  „1  .,20) 

DRAW  A  DASHED  LINE  FROM  THE  CURRENT  BEAM/PEN  POSITION  TO  THE 
NEW  SECONDARY  AXIS  ORIGIN,  THEN  OUTLINE  THE  NEW  AXIS. 

CALL  UPEN1  (0.,0.,‘DARROW’) 

CALL  AXIS 

DEFINE  ANOTHER  AXIS  WITH  AN  ORIGIN  AT  (5.,1 .)  AND  ROTATED  BY  FORTY- 
FIVE  DEGREES 

CALLUCOSYS  (5,1  ,1  ,1  ,45.) 

REVERT  TO  ‘SYSTEMAXIS’  MODE,  AND  MOVE  TO  THE  ORIGIN  OF  THE 
SYSTEM  AXIS. 

CALL  USET  (  SYSTEMAXIS’) 

CALLUMOVE  (0.,0.) 

RETURN  TO  ‘USERAXIS’  MODE,  AND  DRAW  A  DASHED  LINE  FROM  THE  ORIGIN 
OF  THE  SYSTEM  AXIS  TO  THE  ORIGIN  OF  THE  USER  AXIS.  AFTER  THIS  IS 
DONE,  OUTLINE  THE  CURRENT  USER  AXIS. 

CALL  USET  (’SYSTEMAXIS’) 

CALL  UMOVE  (0.,0.) 

RETURN  TO  'USERAXIS'  MODE,  AND  DRAW  A  DASHED  LINE  FROM  THE  ORIGIN 
OF  THE  SYSTEM  AXIS  TO  THE  ORIGIN  OF  THE  USER  AXIS.  AFTER  THIS  IS 
DONE,  OUTLINE  THE  CURRENT  USER  AXIS. 

CALL  USET  (’USERAXIS’) 

CALL  UPEN1  (0  ,0.,’DARROW’) 

CALLAXIS 

WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  A  FORTRAN  PROGRAM. 


CALLUEND 

STOP 

END 
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SUBROUTINE  TO  DRAW  A  COORDINATE  AXIS  DIAGRAM  AT  THE  CURRENT 
ORIGIN. 

SUBROUTINE  AXIS 
CALLUMOVE  (-1..0.) 

CALL  UPEN1  (1  ,,0.,‘LARROW’) 

CALLUMOVE  (0..-1.) 

CALLUPEN  (0.,1.) 

RETURN 

END 


EXAMPLE  VIII-2 
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CALL  USTART 

CALL  USET  C'WORKINQAXXSO 

CALL  UUJNDC  C-2.,8.,-2.,0.> 

CALL  UOUTLN 

CALL  AXIS 

CALL  UMCVE  C0.,0.5 

CALL  UCOSYS  C2.,6., 1 l .,28. J 

CALL  US^f^SYSTEMioaSO'46*5 
CALL  UHOVE  C0.,0?>^ 

CALL  USET  C'USERAXIS'5 

C0w0.,'DARROWO 

A XJS 
CALL  UENP 
STOP 
END 

SUBROUTINE  AXIS 
CALL  UHOVE  C-1.,0.> 

CALL  UPENl  Cl .,0., 'LARROV') 
CALL  UHOVE  <0.*-|.>^ 

CALL  UPEN  C0.#1.J 

return 

ENP 
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c  EXAMPLE  PROGRAM  USED  TO  ILLUSTRATE  COMPOSITION  OF  MULTIPLE 
C  USER  AXES.  THE  AXIS  DEFINITION  WILL  BE  PERFORMED  IN  THE 
C  ‘CUMULATIVE’  OR  'REFERENCE  AXIS’  MODE. 

C  ENTER  GCS,  DEFINE  A  NEW  VIRTUAL  WINDOW,  AND  OUTLINE  DEFAULT 
C  DEVICE  PLOTTING  AREA. 

C 

CALL  USTART 

CALL  UWINDO  (-1  ..9..-1  .,9.) 

CALL  UOUTLN 

INDICATE  THAT  SECONDARY  AXES  ARE  TO  BE  BUILT  CUMULATIVELY. 

CALL  USET  (‘REFERENCE AXIS’) 

DRAW  AN  AXIS  AT  THE  CURRENT  AXIS  ORIGIN.  THIS  AXIS  DISPLAY  ROUTINE 
IS  IDENTICAL  TO  THAT  USED  BY  THE  PREVIOUS  EXAMPLE. 


CALLAXIS 

MOVE  BEAM/PEN  TO  THE  ORIGIN  OF  THE  CURRENT  (SYSTEM)  AXIS,  THEN 
DEFINE  A  SECONDARY  AXIS  WITH  AN  ORIGIN  AT  (2.,5.)  AND  ROTATED  BY 
TWENTY  DEGREES. 


CALLUMOVE  (0.,0.) 

CALL  UCOSYS  (2.5., 1  .,1  .,20.) 

DRAW  A  DASHED  LINE  FROM  THE  CURRENT  BEAM/PEN  POSITION  TO  THE 
NEW  SECONDARY  AXIS  ORIGIN,  THEN  OUTLINE  THE  NEW  AXIS. 


CALL  UPEN1  (0.,0.,‘DARROW’) 
CALLAXIS 


NOW  MOVE  TO  THE  ORIGIN  OF  THE  CURRENT  SECONDARY  COORDINATE 
SYSTEM,  THEN  DEFINE  ANOTHER  SECONDARY  AXIS  WITH  AN  ORIGIN  AT 
(5.1 .)  AND  ROTATED  BY  FORTY-FIVE  DEGREES. 


CALL  UMOVE  (0.,0.) 

CALL  UCOSYS  (5.,1  .,1  .,1  .,45.) 


DRAW  A  DASHED  LINE  FROM  THE  CURRENT  BEAM/PEN  POSITION  (THE 
ORIGIN  OF  THE  PREVIOUS  SECONDARY  AXIS)  TO  THE  ORIGIN  OF  A  CURRENT 
SECONDARY  AXIS,  THEN  OUTLINE  THE  CURRENT  AXIS. 


CALL  UPEN1  (0.,0.,‘DARROW’) 

CALLAXIS 

WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  A  FORTRAN  PROGRAM. 


CALLUEND 

STOP 

END 

SUBROUTINE  AXIS 
CALLUMOVE  (-1..0.) 

CALL  UPEN1  (1  ,,0.,‘LARROW’) 

CALLUMOVE  (0..-1.) 

CALL  UPEN  (0.,1 .) 

RETURN 

END  EXAMPLE  VIII-3 
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CALL  USTAKT 

CALL  UWIHPO  C-l. , «. > 
CALL  UOUTLN 

CALL  USET  C'REFERENCEAXISO 
CALL  AXIS  ✓ 

CALL  UHOVE  C0.,2.5 
CALL  UCOSYS  C2.,S.,  | |  ,#8S.> 

SH"  KfS1  C0w0.,'DA6R6Cf'> 

CALL  AXIS 

CALL  UHDVE  C0.,S.5 

CALL  UCOSYS  C5.,  I | i . ,46.  J 

call  upeni  ca.,a.,  'da6ro(i':> 

CALL  AXIS 
CALL  UENP 
STOP 
ENP 

subroutine  AXIS 
CALL  UMOVE 

Sit  U::Sr.i‘-ARB0M'> 

ENP 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  GCS 
SUBROUTINE  ‘UCOSYS’  TO  DEFINE  A  DYNAMIC  SECONDARY  AXIS  SYSTEM. 
THE  EXAMPLE  CALCULATES  THE  HORIZONTAL  AND  VERTICAL 
COMPONENTS  OF  VELOCITY  AND  DISPLACEMENT  FOR  A  PROJECTILE 
WHICH  TUMBLES  DURING  FLIGHT.  THIS  EXAMPLE  IS  IDENTICAL  TO  THE 
PREVIOUS  PROGRAM  WITH  THE  EXCEPTION  OF  THE  ADDED  ROTATIONAL 
COMPONENT. 

INITIALIZE  TIME,  ROTATIONAL  ANGLE,  VELOCITY,  AND  DISPLACEMENTS 


DATA  T,THETA,VO,XO,YO/O.,75.,1  07,-1  80,0./ 

ENTER  GCS,  DEFINE  DISPLACEMENT  WINDOW,  AND  OUTLINE  DEFAULT 
DEVICE  PLOTTING  AREA. 


CALL  USTART 

CALL  USET  (‘WORKING AXIS’) 
CALL  UWINDO  (-225,225,-1  5,95.) 
CALL  UOUTLN 


MOVE  INITIAL  DISPLACEMENT  COORDINATES,  SPECIFY  THAT  SOFTWARE 
CHARACTERS  ARE  DESIRED,  LINE  CHARACTER  SIZE,  AND  SET  DASH  SPEC. 


CALL  UMOVE  (XO.YO) 

CALL  USET  (‘SOFTWARE’) 

CALL  UPSET  (’HORIZONTAL’,  6.) 

CALL  UPSET  (‘VERTICAL’, 3.) 

CALL  UPSET  CSETDASH’,92.) 

DEFINE  LOOP  TO  CALCULATE  HORIZONTAL  AND  VERTICAL 
DISPLACEMENTS. 


DO  1  T-1,1 1 

X  =  (.707*VO*T)  +  XO 

Y  =  T*(.707*VO-(16.*T))  +  YO 


SPECIFY  THE  SECONDARY  AXIS  AT  COMPUTED  DISPLACEMENT 
COORDINATES  THEN  DRAW  THE  FLIGHT  PATH  OF  THE  PROJECTILE  TO  THIS 


ORIGIN. 


CALL  UCOSYS  (X,Y,1  ,1 ., THETA) 
CALL  UPEN1  (0,0, 'DASH') 


SETUP  A  NEW  WINDOW  FOR  DRAWING  THE  PROJECTILE  ITSELF  W  THIN  THE 
ROTATED  COORDINATE  SYSTEM  WE  HAVE  JUST  DEFINED.  A  DISTORTED  ‘D 
REPRESENTS  THE  PROJECTILE. 


CALL  UWINDO  (0,1 00,0,1  00.) 

CALL  UWHERE  (X,Y) 

CALL  UPEN1  (X,Y,'DD’) 

REDEFINE  DISPLACEMENT  WINDOW,  UPDATE  TIME  AND  ROTATIONAL 
ANGLE. 

CALL  UWINDO  (-225,225,-1  5,95.) 

T  =  T+0.4758 
THETA  =  THETA+57. 

CONTINUE 


o  o  o 


WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  THIS  FORTRAN  PROGRAM. 

CALLUEND 

STOP 

END 


EXAMPLE  VIII-4 
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DATA  T.THETA,Va.X0.Ya/a.,7S.,l97.,- 

CALL.  USTART  _ .  % 

CALL  U8ET  C'WORKINSAXISO 
CM  L  UWINDO  C*-226.#226.#*-l6.,86.5 
CALL  UCUTLN 
CALL  UMOVE  CXa#Y«5 
CALL  U8ET  C8CFTVAREO 
CALL  UPSET  C' HORIZONTAL ',8. 5 
CALL  UPSET  C' VERTICAL ',3. 5 
CALL  UPSET  C'SETDASH',82.5 
DO  l  I  -  1,  tt 
X  -  C.787*V8*»T5  •*.  X« 
v  at  T  **  c.707  #*  va  -  C18.«*T55 
CALL  UCOSYS  CX, Y, 1 . , 1 . „ THETAS 
CALL  UPENl  C8.,8.,'l>A8HO 
CALL  UWINDO  C8., 188. .8., 180.5 
CALL  UVHERE  CX,Y5 
CALL  UPENl  CX.Y.'DDO 
PALL  UWINDO  C-22B . . 22B . , - l 6 . , 86 , 


Y8 


T  -  T  ♦  8.47B8 
THETA  -  THETA  ♦  B7. 
I  CONTINUE 
CALL  UEND 
STOP 
END 


180. „0./ 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  GCS 
SUBROUTINE  ‘UCOSYS’  TO  DEFINE  A  DYNAMIC  SECONDARY  AXIS  SYSTEM 
THE  EXAMPLE  CALCULATES  THE  HORIZONTAL  AND  VERTICAL 
COMPONENTS  OF  VELOCITY  &  DISPLACEMENT  FOR  A  PROJECTILE. 


DEFINE  TIME,  INITIAL  VELOCITY,  &  INITIAL  DISPLACEMENT  LOCATION. 
DATA  T.VO.XO.YO/O.,1 07.,- 1  90., 0./ 


ENTER  GCS,  DEFINE  DISPLACEMENT  WINDOW,  AND  OUTLINE  THIS  WINDOW. 
CALLUSTART 

CALL  USET  (‘WORKINGAXIS’) 

CALL  UWINDO  (-225,225.  -1  5. ,95  ) 

CALL  UOUTLN 


CALCULATE  HORIZONTAL  VELOCITY  COMPONENT,  VELOCITY  SCALE 
FACTOR.  MOVE  TO  INITIAL  DISPLACEMENT  COORDINATES,  AND  SET  DASH 


VX  =  .707*VO 
ZETA  =  1 1  *VX 
CALLUMOVE  (XO.YO) 

CALL  UPSET  (‘SETDASH’,92.) 


DEFINE  LOOP  TO  CALCULATE  DISPLACEMENTS,  AND  VERTICAL  VELOCITY 
COMPONENT 


DO  1  1=1,1 1 
X  =  (VX*T)  +  XO 
VY=2.*(VX-32  *T) 

Y  =  T*(VX-(16.*T))  +  YO 


SPECIFY  THE  SECONDARY  AXIS  AT  COMPUTED  DISPLACEMENT 

'NATES  ™EN  DRAW  THE  FLIGHT  PATH  OF  THE  PROJECTILE  TO  THIS 

CJH to  I N 


CALL  UCOSYS  (X,Y,1.,1.,0.) 
CALL  UPEN1  (0  0..'DASH') 


DEFINE  A  NEW  WINDOW  FOR  THE 
VERTICAL  COMPONENTS  OF  THE 


VELOCITY  AND  PLOT  THE  HORIZONTAL  & 
PROJECTILE'S  VELOCITY 


CALL  UWINDO  (0.,ZETA,-ZETA,ZETA) 
CALL  USET  ('RELATIVE  ) 

CALL  UPEN1  (VX.O  .'LARROW') 

CALL  UMOVE  (-VX.0.) 

CALL  UPEN1  (0..VY,  LARROW') 

CALL  UMOVE  (0.,-VY) 


REDEFINE  DISPLACEMENT  WINDOW,  UPDATE  TIME,  AND  CONTINUE  A  LOOP. 

CALL  USET  ('ABSOLUTE') 

CALL  UWINDO  (-225  225., -15  95) 

T-T+.4758 

CONTINUE 

WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  THIS  FORTRAN  PROGRAM. 


CALL  UEND 

STOP 

END 


EXAMPLE  VIII-5 


data  T.va.xa^a/a.^Ww-ieo.,©./ 

CALL  USTART 

CALL  USET  C'UORKZNQAXZSO 

CALL  UWXHPO  C-22E . 4 225 . ,  - 1 5 . ,  06 .  > 

CALL  UOUTLN 

VX  -  .707  *  V0 

2ETA  -  l l .  *  VX 

CALL  UHOVE  CX0,Y0> 

CALL  UPSET  C*SETT>ASH*,02.> 

DO  I  I*  I,  tt 

X  -  CVX*T>  ♦  X0 

VY  •*  2.  •*  CVX  -  C32.wT» 

Y  m  T  »  CVX  -  CIC.**T»  ♦  Y0 
CALL  UCOSYS  CX#Y#  t ..l .,0.> 

CALL  UPENl  C0W0.^ASHO 
CALL  UWINDO  C0.#2ETA#-2ETA#2ETA> 
CALL  USET  C # RELATIVE* > 

CALL  UPENl  CVX.0.,  *LARROVO 
CALL  UHOVE  C-VX.0.5 
CALL  UPENl  C0.,VY  'LARROVO 
CALL  UHOVE  C0.,-VY> 

CALL  USET  C* ABSOLUTE*}  _ 

CALL  UWINDO  C-22C.#22S.,-15.,05.> 
T  m  T  ♦  .47ES 


l  CONTINUE 
CALL  UEND 
STOP 
ENP 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  APPLICATION  OF  GCS 
SUBROUTINE  UCOSYS  TO  DEFINE  A  DYNAMIC  SECONDARY  AXIS  SYSTEM. 
THE  EXAMPLE  DISPLAYS  THE  TANGENT  AND  NORMAL  COMPONENTS  OF 
TRAJECTORY  AND  DISPLACEMENT  FOR  A  PROJECTILE. 

DEFINE  TIME  INITIAL  VELOCITY  AND  INITIAL  DISPLACEMENT  LOCATION. 

DATA  T,VO,XO,YO/O.,1  07.,- 1 90., 0./ 

ENTER  GCS  DEFINE  DISPLACEMENT  WINDOW,  AND  OUTLINE  THIS  WINDOW. 
CALL  USTART 

CALL  USET  CWORKINGAXIS’) 

CALL  UWINDO  (-225., 225., -225., 225.) 

CALL  UOUTLN 


CALCULATE  TANGENT  VELOCITY  COMPONENT  MOVE  TO  INITIAL 
DISPLACEMENT  COORDINATES,  AND  SET  DASH  SPECS. 

VX  =  .707*VO 
CALL  UMOVE  (XO,YO) 

CALL  UPSET  OSETDASH’,92.) 

CALL  USET  ('RADIANS’) 

DEFINE  LOOP  TO  CALCULATE  DISPLACEMENTS 

DO  1  1  =  1,1 1 
X  =  (VX*T)  +  XO 
Y  =  T*(VX-16*T))  +  YO 
DYDX=  1  -(32*(X-XO)/VX**2) 


SPECIFY  THE  SECONDARY  AXIS  AT  COMPUTED  DISPLACEMENT 
COORDINATES  AND  ROTATED  TO  THE  SLOPE  OF  THE  TANGENT  THEN  DRAW 
THE  FLIGHT  PATH  OF  THE  PROJECTILE  TO  THIS  ORIGIN 


CALL  UCOSYS  (X,Y,1  .,1  .ATAN(DYDX)) 
CALL  UPEN1  (0.,0.,’DASH’) 


DEFINE  A  NEW  WINDOW  AND  PLOT  THE  TANGENT  &  NORMAL  COMPONENTS 
OF  THE  PROJECTILE’S  TRAJECTORY. 

CALL  UWINDO  (0„1  „-1  „0 ) 

CALL  USET  (‘RELATIVE’) 

CALL  UPEN1  (.05,0.,’LARROW’) 

CALL  UMOVE  (-.05,0.) 

CALL  UPEN1  (0.,-.05,'LARROW’) 

CALL  UMOVE  (0.,  05) 


REDEFINE  DISPLACEMENT  WINDOW,  UPDATE  TIME,  AND  CONTINUE  A  LOOP. 

CALL  USET  (’ABSOLUTE’) 

CALL  UWINDO  (-225., 225., -225., 225  ) 

T  =  T  +  .4758 
CONTINUE 


WRAP-UP  GRAPHICS  ACTIVITY  AND  TERMINATE  THIS  FORTRAN  PROGRAM. 

CALLUEND 

STOP 

END  EXAMPLE  VI 1-6 
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data  T#V8,XB#Ya/a.#i87.,-i88.,0./ 
CALL  USTAKT 

CALL  USET  C'UORKINQAXIS'} 

CALL  UVZHPC  C-22E.,225.,,-22E., 225.5 

CALL  UOUTLN 

VX  -  .787  »  V8 

Cali,  uhove  oce^vaj 

CALL  UPSET  C'SETDASH',82.> 

CALL  USET  C' RADIANS'} 

PO  I  I  -  t,  11 

x  «  cvx«»t>  ♦  xa 

Y  -  T  »  CVX  -  Cte.*T»  *  Y8 
DYDX  -  t  -  C32  *  CX-X8}  /  VX*H*> 
CALL  UCOSYS  CX,Y, l ., I ., ATANCDYDX}} 
CALL  UPEN1  C8.,8.,'DASH'> 

CALL  UWINDO  C8.,  l^-l  .,8.5 
CALL  USET  C' RELATIVE O 
CALL  UPENl  C.0S.8.,  'LARROW'} 

CALL  UMOVE  C-.8S,8.} 

CALL  UPENl  C8,,-.86,'LARROW'} 

CALL  UMOVE  C8.,  .86.) 

CALL  USET  C' ABSOLUTE'} 

CALL  UWINDO  C-225 . , 225 . , -225 . ,  225 . } 
T  ■*  T  ♦  .4758 


l  CONTINUE 
CALL  UEND 
STOP 
END 
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CHAPTER  IX 


THREE  DIMENSIONAL  GRAPHICS 

The  three  dimensional  version  of  GCS  gives  to  the  user  the  ability  to  describing  his 
environment  in  three  dimensions.  Each  of  the  primary  two  dimensional  GCS  routines 
have  a  three  dimensional  counterpart:  U3PEN,  U3MOVE,  U3DRAW,  U3PRNT,  U3WRIT, 
U3CSYS,  and  U3WHER.  The  coordinates  used  by  each  of  these  routines  may  be 
specified  as  (X,Y,Z)  rectangular  coordinates,  (R,0,Z)  cylindrical  coordinates,  or  (R.O.t) 
spherical  coordinates.  Use  of  the  3-D  routines  does  not  preclude  use  of  the  2-D 
routines;  the  2-D  routines  are  defined  so  as  to  draw  parallel  to  the  current  X-Y  plane  on  a 
plane  specified  by  a  default  Z  coordinate,  contained  in  the  Graphics  Status  Area  (GSA). 
This  Z  value  may  be  set  by  the  user  with  an  UPSET  (‘ZVALUE’,  value)  call.  The  default 
ZVALUE  is  zero.  By  using  both  2-D  and  3-D  routines  an  image  may  be  described  in  3- 
space. 

In  order  to  specify  the  appearance  of  the  object  being  drawn,  the  location  of  the  viewer 
and  the  direction  in  which  he  is  looking  must  be  specified.  By  calling  UVIEW 
(XVIEW,YVIEW,ZVIEW,XSITE,YSITE,ZSITE),  the  user  can  specify  where  the  view  point  is 
located  and  at  what  point  in  the  evironment  he  is  looking  (view  site).  The  environment 
will  then  be  displayed  from  this  viewpoint  with  the  view  site  located  on  a  line  which 
passes  through  the  center  of  the  viewport.  The  viewport  indicates  the  boundaries  of  the 
user’s  field  of  view  and  also  how  far  the  viewport  is  from  the  view  point  or  the  viewsite. 
The  X-coordinates  of  the  viewport  will  range  in  the  interval  (-A/2.A/2)  and  the  Y-coordi- 
nates  in  the  interval  (-B/2.B/2).  Default  values  for  UVIEW  are  (0.,0.,1  50.,0.,0.,0.)  and  for 
UVWPRT  are  (200. , 200. ,0.).  GCS  will  also  automatically  clip  points  outside  of  the  view¬ 
ing  pyramid  (behind  the  view  point  or  outside  the  viewport).  The  user  can  select  whether 
the  resulting  image  will  be  mapped  to  the  screen  with  a  PERSPECTIVE  (default)  or 
ORTHOGONAL  projection. 

The  user  may  specify  which  portion  of  this  viewport  will  be  displayed  on  the  screen  by 
setting  his  UWINDO.  The  UWINDO  boundaries  may  or  may  not  overlap  the  viewport.  If  no 
portion  of  the  UWINDO  corresponds  to  the  viewport,  the  viewport  will  be  expanded  to 
encompass  the  UWINDO  if  the  UWINDO  changes.  If  the  viewport  is  specified  smaller 
than  the  UWINDO,  the  UWINDO  will  contract  to  encompass  the  viewport. 

As  in  2-D  GCS,  the  user  may  construct  arbitrary  user  coordinate  systems  using  the  calls 
U3CSYS,  U3SCAL,  and  U3ROTA.  These  work  similar  to  the  2-D  case  with  one  exception 
Since  3-D  rotations  are  not  commutative,  the  order  of  rotation  must  be  specified  with  a 
suitable  USET  call:  'XYZ’,  ‘XZY’,  'YXZ’,  ‘ZXY,’  or  ‘ZYX’.  The  default  sequence  is  ‘ZYX’. 

A  call  to  the  2-D  routine  UCOSYS  will  cause  a  rotation  about  the  Z  axis.  Any  rotation 
around  other  than  the  system  Z  axis  will  cause  the  XY  plane  to  cease  being  parallel  to 
the  screen  and  will  effect  the  output  of  symbols  and  curves  (see  below). 

Curve  generation  using  the  UARC,  UCRCLE,  UCONIC,  UPLYGN,  and  URECT  routines 
function  as  they  did  before.  However,  since  they  are  2-D  routines,  their  output  will  be 
created  in  the  XY  plane  specified  by  the  current  ZVALUE  parameter  as  indicated  above. 
In  addition,  software  characters  generated  by  U3PRNT,  U3WRIT,  and  UAOUT  will  also 
appear  in  the  XY  plane.  Hardware  characters  still  appear  on  the  plane  of  the  display  sur¬ 
face.  Line  terminators  (arrowheads  and  software  characters)  and  tic  marks  appear  on  a 
plane  specified  by  the  two  end  points  of  the  line  and  a  third  point  which  the  user  can 
specify  via  the  UPOINT(X,Y,Z)  subroutine.  The  default  UPOINT  is  a  point  on  the  default 
XY-plane  outside  the  default  UWINDO  boundaries.  This  point  is  (-.6931471806,  - 
1.096122887,  0.). 

Textual  output  for  three  dimensions  has  been  expanded  slightly  to  allow  another  text 
output  mode.  This  mode  is  ‘XYZCOORDINATES’  which  will  print  the  three  components 
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of  a  set  of  3-D  coordinates.  ‘XYCOORD I  NATES'  are  still  available  for  2-D  coordinates. 
All  other  text  functions  of  2-D  GCS  are  processed  as  before.  Since  the  text  created  by 
U3PRNT  and  U3WRIT  is  displayed  in  the  current  user  X-Y  plane,  specified  by  the  Z- 
coordinate  of  the  specified  location,  suitable  choices  of  UVIEW  will  result  in  text  which 
when  displayed  will  be  backwards.  This  is  a  result  of  viewing  the  text  from  behind  it. 

Drawing  3-D  images  is  primarily  intended  for  use  in  VIRTUAL  space.  However,  a  user 
who  wishes  to  do  so  can  directly  address  the  face  of  the  display  surface  in  DEVICE 
space.  If  this  is  done,  no  clipping  against  viewport  boundaries  takes  place.  The 
requested  graphical  data  is  displayed  projected  orthogonally  onto  the  device  screen. 
For  most  devices,  the  Z-value  will  be  ignored  and  the  X,Y  components  will  be  used  as 
screen  addresses  after  conversion  to  device  units. 


To  facilitate  displaying  different  sections  of  the  viewport,  an  additional  window  and  dis¬ 
play  area  routine  has  been  implemented.  ULOOK  lets  the  user  specify  a  portion  of  the 
display  surface  (UDAREA)  in  device  units.  The  window  (UWINDO)  dimensions  are  then 
adjusted  to  move  the  UWINDO  to  display  the  equivalent  portion  of  virtual  space 
(viewport).  The  effect  is  that  of  moving  a  template  around  on  the  viewport. 


ix-2 


C  THIS  PROGRAM  DEMONSTRATES  THE  USE  OF  SEVERAL  3-D  SUBROUTINES 
C  AND  THE  DIFFERENCE  BETWEEN  ORTHOGONAL  AND  PERSEPCTIVE 

C  PLOTTING. 

C 

CALL  USTART 
CALL  UPSET  ('SETD',1.) 

CALL  UPSET  ('TERMINATOR', 

CALLUSET  ('PERC') 

CALL  UDAREA  (0.,1  00.,0.,1  00.) 

CALL  AXIS 
CALLUSET  ('ORTH') 

CALL  BOX 

CALL  USET  ('PERC') 

CALL  UDAREA  (0..1 00..0..1 00.) 

CALL  UWINDO  (-1  00., 1  00..-1  00., 1  00.) 

CALL  USET  ('PERSPECTIVE') 

CALL  BOX 
CALL  UEND 
STOP 
END 

SUBROUTINE  AXIS 
CALL  UOUTLN 
CALL  USET  ('DASH') 

CALL  U3MOVE  (-20., -20. ,-20.) 

CALL  U3PEN  (50., -20., -20.) 

CALL  UPRNT 1  ('X;', 'TEXT') 

CALL  U3MOVE  (-20., -20., -20.) 

CALL  U3PEN  (-20. ,50., -20.) 

CALL  UPRNT  1  ('Y;', 'TEXT') 

CALL  U3MOVE  (-20., -20., -20.) 

CALL  U3PEN  (-20„-20.,1  00.) 

CALL  UPRNT  1  ('Z;', 'TEXT') 

CALL  USET  ('LINE') 

CALL  U3CSYS  (25., 25., 25., 1  .,1  .,1  .,1 0.,1  0.,0.) 

CALL  UVIEW  (-20.,-20.,-1  50.,0.,0.,0.) 

RETURN 

END 

SUBROUTINE  BOX 
CALL  U3MOVE  (0.,0.,0.) 

CALL  U3PEN  (10.,0.,0.) 

CALL  U3PEN  (10., 10  ,0.) 

CALL  U3PEN  (0„10.,0  ) 

CALL  U3PEN  0.,0.,0.) 

CALL  U3MOVE  (10  ,0.,0.) 

CALL  U3PEN  (10.,0.,60.) 

CALL  U3PEN  (1  0„1 0..60.) 

CAL  L  U3PEN  (1 0.,1  0  ,0.) 

CALL  U3MOVE  (0  ,1  0  ,0.) 

CALL  U3PEN  (0  10., 60.) 

CALL  U3PEN  (1 0„1  0.  60.) 

CALL  U3MOVE  (0  ,0.,0.) 

CALL  U3PEN  (0„0.,60.) 

CALL  U3PEN  (0..10..60.) 

CALL  U3PEN  (0.,10.,0.) 

CALL  U3MOVE  (0„0.,60.) 

CALL  U3PEN  (10.,0.,60.) 

RETURN 

END 

EXAMPLE  IX-1 
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CALL  USTART 

CALL  UPSET  C' TERMINATOR', ','5 

CALL  UPSET  < 'SPEED',  120.5 

CALL  USET  C  ' PERCENTUNITS  ' 5 

CALL  UDAREA  <0., 100., 0., 100.5 

CALL  UVINDO  <-100.,  1&0., -100. ,100.5 

CALL  UERASE 

CALL  AXIS 

CALL  USET  C' ORTHOGONAL' 5 
CALL  BOX 

CALL  UDAREA  <0., 100..0. , 100. 5 

CALL  UVfINDO  C-100., 100. ,-100., 100.5 

CALL  USET  C  '  PERSPECTIVE  '  5 

CALL  BOX 

CALL  UEND 

STOP 

END 
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SUBROUTINE  AXIS 

CALL  UOUTLN 

CALL  USET  C'PASHO 

CALL  U3M0VE  (-22. ,-22 . ,-22 .> 

CALL  U3PEN  CB8 . , -20 . , -20 . 5 
CALL  UPRNTJ  C'Xi 'TEXTO 
CALL  U3M0VC  C -20.  ,-20., -20. } 

CALL  U3PEN  C-20  .,52.  ,-20 . 3 
CALL  UPRNTl  C'Y, 'TEXTO 
CALL  U3M0VE  C-20., -20., -20.  > 

CALL  U3PEN  (-22 . , -22., 100.3 
CALL  UPRNTl  (.'Z/',  'TEXTO 
CALL  USET  C'LINEO 

CALL  U3CSYS  C25.,25.,25.,  1 1 1 10 
CALL  UVIEW  C-20.,-20.,-JS0.,0.,0.,0. 
RETURN 
ENP 


SUBROUTINE  BOX 
CALL  U3M0VE  C0.,0.,0.> 
U3PEN  C10., 0.,0.:> 
U3PEN  C10. ,10. ,0. > 
U3PEN  C0.,10.,0.> 
U3PEN  C2.,2.,b.> 
U3M0VE  CIS. ,8., St.) 
U3PEN  C10.,8.,«0.> 
U3PEN  C10.,10.,«0.> 
U3PEN  C10.,  10. ,0.5 
U3N0VE  C0.,10.,0.5 
U3PEN  (2., 10.,«0.5 
U3PEN  C10., 10. ,00. 5 
U3M0VE  CC.,0.,0.5 
U3PEN  CC.,0.,00.5 
U3PEN  CC.,10.,00.5 
U3PEN  C0., 10. ,0. 5 
U3M0VE  Ce.,2.,02.) 
U3PEN  (\e.,e.,ee.> 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
f>AI  1 
RETURN 
ENP 
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V* 


C  THIS  PROGRAM  DEMONSTRATES  THE  USE  OF  SEVERAL  3-D  SUBROUTINES 

C  TO  PRODUCE  A  VILLAGE  ON  A  TEKTRONIX  401  4/401  5  TERMINAL 

C 

CALL  USTART 
CALL  USET  ('VIEW') 

CALL  UVWPRT  (150.) 

CALL  UPSET  ('TERM',  '<') 

CALL  UWINDO  (-1  00., 1  00., -1  00., 1  00.) 

CALLUDAREA  (0.,7  ,0.,7.) 

CALL  UVIEW  (-40., 200., 700., -20., 20., 0.) 

CALL  VILLAG 

CALL  UDAREA  (7.1 ,1  4.1 ,0., 7.) 

CALL  UVIEW  (-70., -1  50., 50  ,0  ,0.,1  0.) 

CALL  VILLAG 
CALL  UEND 
STOP 
END 

SUBROUTINE  VILLAG 
CALL  USET  ('XYZ ) 

CALL  USET  ('SYST') 

CALL USET  CREFE) 

CALL  U3CSYS  (-50,20., 0..1..1  1  ,90,0  ,0.) 

CALL  USET  ('BLACK') 

CALL  CHURCH 
CALL  USET  ('SYST') 

CALL  U3CSYS  (24  ,-1 9.,0.,1  .,1  .,1  „80.,-90  0) 

CALL  USET  ('RED') 

CALL  SCHOOL 
CALL  USET  ('SYST') 

CALL  U3CSYS  (70..70  ,0.,0  7  0  7,0.7,0.,0  0  ) 

CALL  USET  ('BLUE') 

CALL  PIZZA 
CALL  USET  ('SYST') 

CALL  U3CSYS  (0.,0.,0  1  1  .,1  „0.,0  0  ) 

CALL  USET  ('BLACK') 

CALL  ROAD 
CALL  USET  ('SYST') 

RETURN 

END 

SUBROUTINE  SCHOOL 
CALL  USET  ('SOFT') 

CALL  USET  CREFE') 

CALL  U3MOVE  (0  ,0.,0.) 

CALL  URECT  (50  ,25.) 

CALL  U3MOVE  3..4..0.) 

CALL  URECT  (7., 8.) 

CALL  U3MOVE  ( 1  3„4.,0.) 

CALI.  URECT  (1  7., 8  ) 

CALL  U3MOVE  (47„4„0.) 

CALL  URECT  (43., 8.) 

CALL  U3MOVE  (37  ,4.  0.) 

CALL  URECT  (33., 8.) 

CALL  U3MOVE  (25  ,0.  0.) 

CALL  URECT  (22., 8.) 

CALL  URECT  (28., 8.) 

DO  10  1  =  3,43,10 
X  =  l 

CALL  U3MOVE  (X  1  5„0.) 
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10  CALL  URECT  (X  +  4.,20.) 

CALL  IJSET  ('WORK') 

CALL  U3CSYS  (50  ,0.,0.,1  .,1  .,1  ,0.,90.,0.) 

ISW=  1 

15  CALL  U3M0VE  (0.,0.,0.) 

CALL  URECT  (90., 25.) 

DO  20  1  =  3,83,10 
X  =  I 

CALL  U3M0VE  (X,1  6  ,0.) 

CALL  URECT  (X  +  4.,20.) 

IF(I.EQ.43)  GOTO  20) 

CALL  U3M0VE  (X,4.,0.) 

CALL  URECT  (X  +  4.,8.) 

20  CONTINUE 

CALL  U3M0VE  (45.,0.,0.) 

CALL  URECT  (42., 8.) 

CALL  URECT  (48., 8.) 

IF  ISW.EQ.2)  GO  TO  30 
ISW=  2 

CALL  U3CSYS  (0.,0.,-90/,1  .,1  .,1  „0.,-90.,0.) 

GOTO  15 

30  CALL  UPSET  ('VERT', 3.) 

CALL  UPSET  ('HORI', 3.) 

CALL  UPRINT  (0.,21  .,5.  'ROOSEVELT  ELEMENTARY  SCHOOL<  ) 
CALLUSET  ('REFE') 

CALL  UPSET  ('ZVAL', -90.) 

CALL  IJ3MOVE  (0.,0.,-90.) 

CALL  URECT  (50., 25.) 

DO  40  1  =  3,43,10 
X=  I 

CALL  U3MOVE  (X-4.,-80.) 

CALL  URECT  (X  +  4.,8.) 

CALL  U3MOVE  (X,1  6. ,-90.) 

40  CALL  URECT  (X  +  4.,20.) 

CALL  UPSET  ('ZVAL',0.) 

RETURN 

END 

SUBROUTINE  CHURCH 
CALLUSET  ('REFE') 

CALL  U3MOVE  (0.,0.,0.) 

CALL  URECT  (30., 40.) 

CALL  U3MOVE  (1  5.,0.,0.) 

CALL  URECT  (10..10.) 

CALL  URECT  (20., 10.) 

CALL  U3MOVE  (14.,3.,0.) 

CALL  URECT  (14.25,6.) 

CALL  U3MOVE  (1  5.,75,3.,0.) 

CALL  URECT  (16., 6) 

CALL  U3M0VE  (0.,40.,0.) 

CALL  U3PNE  (30.,40.,0) 

CALLUSET  ('WORK') 

CALL  U3CSYS  (30.,0.,0.,1  .,1  .,1  .,0.,90.,0.) 

ISW=1 

10  CALL  U3M0VE  (0.,0.,0.) 

CALL  URECT  (80., 40.) 

DO  20  1  =  20,40,10 

X  =  l 

CALL  U3M0VE  (X,10.,0.) 
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CALL  IJ3PEN  (X.25.,0.) 

CALL  U3PEN  (X  +  4.,30.,0.) 

CAi_L  U3PEN  (X  +  8.,25.,0.) 

CALL  U3PEN  (X  +  8.,10.,0.) 

20  CALL  U3PEN  (X.10.,0.) 

IF  (ISW.E0.2)  GO  TO  30 
ISW=  2 

CALL  U3CSYS  (0  ,0  , 0,1  ,1  .1  „0.,90.,0.) 
GOTO  10 

30  CALL  USET  ('REFE  ) 

CALL  U3M0VE  (0..40..-80.) 

CALL  U3PEN  (1  5..4  7.5.-80.) 

CALL  U3PEN  (30., 40., -80.) 

CALL  U3M0VE  (0,0  , -80  ) 

CALL  E3PEN  (30.  0., -80.) 

CALL  U3M0VE  (1  5., 47., 5, -80.) 

CALL  U3PEN  (1 5., 47. 5,0.) 

CALL  U3M0VE  (10.,45.,0  ) 

CALL  U3PEN  (10., 45  ,-10.) 

CALL  U3PEN  (1  5  ,47., 5,-1 0.) 

CALL  U3PEN  (20.  45., -1  0.) 

CALL  U3PEN  (20  45., 0.) 

CALL  U3PEN  (15,1  00..-5.) 

CALL  U3PEN  (10.45..0.) 

CALL  U3M0VE  (10..45..-1  0  ) 

CALL  U3PEN  (1  5. 1  00..-5  ) 

CALL  U3PEN  (20  ,45., -10.) 

CALL  U3M0VE  (1  5  ,1 00., -5.) 

CALL  U3PEN  (15  ,1  1  0  .-5.) 

CALL  U3M0VE  (13  ,1 07  ,-5.) 

CALL  U3PEN  (17.  107  ,-5.) 

RETURN 

END 

SUBROUTINE  ROAD 
CALL  U3M0VE  (-200., 9., 0.) 

CALL  U3PEN  (-9..9..0.) 

CALL  U3FEN  (-9  .200..0.) 

CALL  U3M0VE  (200  , 9., 0) 

CALL  U3PEN  (9..9..0.) 

CALL  U3PEN  (9..200.  0.) 

CALL  U3MCVE  (-200., -9., 0.) 

CALL  U3PEN  (-9.  -9  ,0.) 

CALL  U3PEN  (  9..-200..0.) 

CALL  UMOVE  (9.,-200.,0.) 

CALL  U3PEN  (9., -9  ,0.) 

CALL  U3PEN  (200., -9„0.) 

RETURN 

END 

SUBROUTINE  PIZZA 
CALL  USET  ('SOFT') 

CALL  USET  (  REFE') 

CALL  U3M0VE  (0..0..0.) 

CALL  U3CSYS  (0.,0.,0.,1  .,1  ..1  „90.,0.  0  ) 
CALL  U3PEN  (40.,0.,0.) 

CALL  U3PEN  (20..50..0.) 

CALL  U3PF.N  (0..0..0.) 

CALL  U3M0VE  (20.,0.,0.) 

CALL  URECT  (17.5,8.) 
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CALLURECT  (22  5,8  ) 

CALL  U3MOVE  (1 0  ,2.,0.) 

CALLURECT  (15., 8.) 

CALL  U3MOVE  (30.,2.,0.) 

CALLURECT  (25., 8.) 

CALL  U3MOVE  (1 3.,1 0.,0.) 

CALLURECT  (27., 15.) 

CALL  UPSET  ('HORI',2.) 

CALL  UPSET  ('VERT',  4  ) 

CALL  USET  ('IT AL') 

CALL  UPRINT  (15.65,11. 2, 'PIZZA<  ) 

CALL  USET  ('GOTH') 

CALL  UPSET  ('VERT', .4) 

CALL  UPSET  ('HORI',.3) 

CALL  UPRINT  (20.95, 5., 'IN<') 

CALL  USET  ('WORK') 

CALL  U3CSYS  (40  ,0.,0  ,1  .,1  J  ,0  ,-180., 
CALL  UPRINT  (20.65,5., 'OUT<') 

CALL  USET  ('REFE') 

CALL  U3MOVE  (0.,0.,-60.) 

CALL  U3PEN  (40.,0.,-60.) 

CALL  U3PEN  (20., 50., -60.) 

CALL  U3PEN  (0.,0.,-60.) 

CALL  U3MOVE  (1  8.5,0., -60.) 

CALL  UPSET  ('ZVAL',-60.) 
CALLURECT  (21.5,8.) 

CALL  UPSET  ('ZVAL',0 ) 


0.) 


CALL  USET  ('REFE') 

CALL  U3MOVE  (0  ,0  ,0.) 

CALL  U3PEN  (0.,0.,-60.) 

CALL  U3MOVE  (40., 0  ,-60.) 

CALL  U3PEN  (40.,0.,0.) 

CALL  U3MCVE  (20.,50.,0 ) 

CALL  U3PEN  (20., 50., -60.) 

CALL  USET  ('WORK') 

CALL  U3CSYS  (0.,0.,0.,1  „1  .,1  .,-ATAN2(50.,20.)*57.29577  +  90.,90.,0. 
CALL  USET  ('XYZ') 

CALL  UPSET  ('HORI',2.) 

CALL  UPSET  ('VERT', 2  5) 

CALL  UPRINT  (5., 5., 'GIANT  PIZZA  $8<  ) 

CALL  USET  CREFE') 

RETURN 

END 


EXAMPLE  IX-2 
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CALL  UCTART 

CALL  USET  C ' VIEWDISTANCE' 5 

CALL  LVVPRT  U6C.5 

CALL  UPSET  C 'TERMINATOR 

CALL  JJWINOO  <-100., 100. ,-100.. 

CALL  UDAREA  <0., 10.8,0. , 10.05 

CALL  UVIEW  <-4©.,20©.,7fe.,-20 

CALL  VILLA9 

CALL  UENO 

STOP 

ENJ5 


100.5 
,20., 0,5 
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1.,  I 


SUBROUTINE  VILLAS 
CALL  USET  ('XYZ  '} 

CALL  USET  ('SYSTEHAXIS'} 

CALL  USET  ('REFERENCEAXIS'} 

CALL  U3CSYS  (-60 . , 20 . , 0 . « l •  • 

CALL  USET  ('BLACK'} 

CALL  CHURCH 

CALL  USET  ('SYSTEHAXIS'} 

CALL  USCSYS  (24.,-t8.,0., 1 ., 1 ., I ., 
CALL  USET  ('REP  '} 

CALL  SCHOOL 

CALL  USET  ('SYSTEHAXIS'} 

CALL  USCSYS  (70. , 70. ,0., 0.7,0. 7,0. 
CALL  USET  ('BLUE'} 

CALL  PIZZA 

CALL  USET  ('SYSTEHAXIS'} 

CALL  USCSYS  (0.,0.,0.,  1 1 .,  \ 

CALL  USET  ('BLACK'} 

CALL  ROAP 

CALL  USET  ('SYSTEHAXIS'} 


80.,0.,0.} 

80.,-80.,0.} 

7,0.,0.,0.} 


0.,0.} 


RETURN 

ENP 


subroutine  school 

CALL  USET  ('SOFT'} 

CALL  USET  ('REFERENCEAXIS'} 

CALL  USHOVE  (C.,0.,0.} 

CALL  URECT  (E0.,26.} 

CALL  USHOVE  (S.,4.,0.} 

CALL  URECT  (7.,0.} 

CALL  USHOVE  (IS.,*.,©.} 

CALL  URECT  (17. ,0.} 

CALL  USHOVE  (47.,4.,0.} 

CALL  URECT  (43., 6.} 

CALL  USHOVE  (37.,4.,0.} 

CALL  URECT  (S3.,®.} 

CALL  USHOVE  (26.,0.,0.} 

CALL  URECT  (22., C.} 

CALL  URECT  (20., 8.} 

PO  10  I  -  S,  43,  10 
X  «•  I 

CALL  USHOVE  (X, l«.,0.} 

10  CALL  URECT  (X*4.,20.} 

CALL  USET  ('VrfORKJNBAXIS'} 

CALL  USCSYS  (60. ,0 . ,0. , l . , l . ,1 • *0* , 0. } 
-  l  ^  . 

16  CALL  USHOVE  (0.,0.,0.} 

CALL  URECT  (80., 26.} 

PO  20  I  -  S,  03,  10 
X  *  I 

CALL  USHOVE  (X, t«.,0.} 

CALL  URECT  (X*4.,20.} 
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IP  <1  .EQ.  43?  60  TO  20 
CALL  U3M0VE  <X,  4.,0, 2 
CALL  URECT  <X-»-4.,e.2 
22  CONTINUE 

CALL  U3M0VE  <4S.,0.,0.? 
CALL  URECT  <42. ,8.? 

CALL  URECT  <46.,8.2 
IP  <ISV  .EQ.  2?  00  TO  30 
IBM  m  Z 


30 


CALLU3CSYS 

CALL  UPSET  < 'VERTICAL', 3.? 

CALL  UPSET  < 'HORIZONTAL', 3.? 

CALL  UPRINT  <0.,2l ,6, '  ROOSEVELT 
CALL  USET  < ' REPERENCEAXIS ' ? 

CALL  UPSET  C'ZVaLUE',-80.? 

CALL  U3M0VE  <0.,0,,-S0.? 

CALL  URECT  <60., 2 £.? 

PO  40  I  «  3,  43,  10 
X  »  I 


0., -00. ,0.2 


ELEMENTARY  SCHOOL; '? 


CALL  U3M0VE  <X,4.,-00.2 
CAU  URECT  <X*4.,e.2 
CAU  U3M0VE  <X,  10. ,-00.2 
40  CALL  URECT  <X+4.,20.2 
CAU,  UPSET  C'ZVALUE',0.? 
RETURN 
END 


',0 


22 


subroutine  church 

CAU  USET  <' REPERENCEAXIS'? 
CAU  U3HCVE  <0.,©,,C.2 
CAU  URLCT  CSC. ,  40.  ? 

CALL  U3M0VE  <t6.,0.,0.? 

CAU  URECT  <10.. 10.? 

CALL  URECT  <20., 10.7 
CAU.  USNCTVE  <14. ,3. ,£,' 

CAU  URECT  <  14,26,0,2 
CAU  L3M0VE  CIS.  76,3. ,0.? 
CAU  URECT  Clfl. ,3. 2 
CAU  USH0VE  <0.,  40.,  0.7 
CAU  USPEN  <16. ,47. 6,0.? 
CAU  USPSN  <30. ,40. ,0.7 
CAU.  USET  < ' WGRKJN6AXIS ' 2 
CAU-  U3CSYS  <30. , 0, , 0, , j . , 

CAU  U3M0VE  <® . ,  0. ,  0,  ? 

CAU  URECT  <80.,  40.2 
PC  S3  X  »  2®,  60,  10 
X  «  X 

CAU  U3M0VE  <X,  10.,0.? 

CAU  U3PEN  <X,26.,fe.2 
CAU  USPEN  <Xf4.,30.,0.? 
CAU-  USPEN  <X*0 . , 26 . '  0 , 2 
CAU  U3PEN  <Xf8.,  10. ,0.2 
CAU  USPErv  <X,  ie.,0,2 
IP  CISV!  EQ.  22  00  TO  30 


1 .  ,  1 .  ,0, , 60 ,,0,2 
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ISU  «■  2 

CALL  U3CSYS  C0.,0.,0.,  1 .,  1  l  .,0., 80. ,0.5 

eo  to  i0 

30  CALL  USET  C'REPERENCEAXISO 
CALL  USMOVE  C0.,  40.  ,-00.5 
CALL  USPEN  CIS. , 47.6,-80. 5 
CALL  USPEN  C30. , 40. ,-«0. 5 
CALL  USMOVE  C0.,0.,-€0.5 
CALL  USPEN  C30.,0.,-80.;> 

CALL  USMOVE  CIS. ,47. S, -80. 5 
CALL  USPEN  CIS. , 47.6,0. 5 
CALL  USMOVE  C10.,46.,0.:> 

CALL  USPEN  C10.,4S.,-10.5 
CALL  USPEN  CIS., 47. 6, -10. 5 
CALL  USPEN  C20.,4S.,-10.> 

CALL  USPEN  CZ0. , 4S. ,0. 5 
CALL  USPEN  CIS., 100., -6. > 

CALL  USPEN  C10. , 46, ,0,5 
CALL  USMOVE  C10.,46.,-10. 5 
CALL  USPEN  CIS., 100, ,-6.5 
CALL  USPEN  C20.,46.,-10.5 
CALL  USMOVE  Cl6.,100,,-S,5 
CALL  USPEN  CIS., 110,,-S. J 
CALL  USMOVE  CIS., 107., -6. 5 
CALL  USPEN  C 1 7 . , 107 .,-6.5 
RETURN 
ENO 


8U9R0UTINE  ROAP 
CALL  USMOVE  C-200.,8.,0.5 
CALL  USPEN  C-S . ,  8 . ,  0 . 5 
CALL  USPEN  C-S . ,202 .,0.5 
CALL  USMOVE  C200.,8.,0.5 
CALL  USPEN  C8.,8.,0.5 
CALL  USPEN  C0.,200.,9.5 
CALL  USMOVE  C-200.,-8.,0.5 
CALL  USPEN  C-8., -8. ,0.5 
CALL  USPEN  C-8 . , -200 .,8.2 
CALL  USMOVE  C8., -200. ,0.5 
CALL  USPEN  CS . , — 8 .,0.5 
CALL  USPEN  C200 . , -8 . ,  0 . 5 
RETURN 
END 
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SUBROUTINE  PIZZA 

CALL  USET  < 'SOFTWARE  CHARACTERS') 

CALL  USET  <'REFERENCEAXIS') 

CALL  USMOVE  <0.,0.,0.) 

CALL  U3CSYS  <0.,0.,0,, 1 ., 1 ., I .,00.,0.,0.) 
CALL  U3PEN  <40.,0.,0.) 

CALL  U3PEN  <20.,60.,0.) 

CALL  U3PEN  <0.,0.,0.) 

CALL  USHOVE  <20.,0.,0.) 

CALL  URECT  <17.5,8.) 

CALL  URECT  <22.5,8.) 

CALL  U3MOVE  <10.,2.,0.) 

CALL  URECT  <15. ,8.) 

CALL  U3H0VE  <30.,2.,0.) 

CALL  URECT  <25. ,8.) 

CALL  U3M0VE  <13.,10.,0.) 

CALL  URECT  <27., 16.) 

CALL  UPSET  < 'HORIZONTAL ',2.) 

CALL  UPSET  <' VERTICAL ',4.) 

CALL  USET  < 'ITALICS') 

CALL  UPRINT  <15. 85, 11.2, 'PIZZA j ' ) 

CALL  USET  < 'GOTHIC') 

CALL  UPSET  < ' VERTICAL ' , . 4) 

CALL  UPSET  < 'HORIZONTAL', .3) 

CALL  UPRINT  <20.05,6., 'IN* ') 

CALL  USET  <'W0RKIN8AXIS') 

CALL  U3CSYS  <40.,0.,0t,  l.,l.,l.,0,,-l60.,0.) 


CALL  UPRINT  <20.85,5., 'OUT* ') 

CALL  USET  <'REFERENCEAXIS') 

CALL  U3M0VE  <0.,0.,-8C.) 

CALL  U3PEN  <4C.,C,,-80.) 

CAU.  U3PEN  <20. ,50. ,-80.) 

CALL  U3PEN  <0.,0.,-80.) 

CALL  U3M0VE  <18. 5,0. ,-80.) 

CALL  UPSET  <'ZVALUE',-80.) 

CALL  URECT  <21.5,8.) 

CALL  UPSET  <'ZVALUE'  0.) 

CALL  USET  C'REFERENCEAXIS') 

CALL  USHOVE  <0.,0.,0.) 

CALL  U3PEN  <C.,0.,-80.) 

CALL  USHOVE  <40.,0.,-80.) 

CALL  USPEN  <40,,0. ,0, ) 

CALL  USHOVE  <22.,S0.,0.) 

CALL  U3PEN  <20. ,50. ,-80.) 

CALL  USET  < ' WORKIN0AXIS ' ) 

CALL  USET  <'Y)(Z  ') 

CALL  U3CSYS  <0,,0.,0.,i. ,!.,!., -ATAN2  <60., 20. )»57. 20577*00., 

A  00., 0.) 

CALL  USET  <'XYZ 

CALL  UPSET  <' HORIZONTAL ',2.) 

CALL  UPSET  <' VERTICAL ',2.5) 

CALL  UPRINT  <6  .,6 . , * 8IANT  PIZZA  88,') 

CALL  USET  < ' REFERENCEAXIS ' > 

return 

end 
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CHAPTER  X 


GRAPHICAL  DATA  STRUCTURE  PROCESSING 


A  feature  which  is  contained  within  3D  GCS  is  the  ability  to  create,  save,  and  later  recre¬ 
ate  pictures  as  they  are  drawn.  It  permits  the  user  to  specify  the  description  of  a  com¬ 
monly  used  graphic  image  once,  store  it,  and  then  invoke  this  description  whenever 
necessary.  This  facility  is  the  implementation  of  an  internal  high-level  GCS  data  struc¬ 
ture. 

Before  the  user  can  define  or  use  a  data  structure,  he  must  first  provide  a  work  file  for 
GCS  to  use.  This  work  file  can  be  specified  by  an  UPSET  (‘LIBRARYFILE’,  file  number) 
call.  The  file  will  then  be  used  to  maintain  the  user's  currently  active  library  of  GCS 
graphics  data  structures. 

To  build  a  data  structure,  the  user  must  first  call  a  routine  USTRCT  (NAME)  which  initi¬ 
ates  construction  of  a  data  structure  under  the  specified  name.  From  then  on  all  calls  to 
the  GCS  routines  listed  in  Table  X-1  will  be  saved  as  elements  of  the  data  structure 
Whenever  the  specification  of  the  object  has  been  completed,  a  call  is  made  to  UTERM 
(NAME)  to  terminate  the  building  process.  The  resulting  data  structure  is  then  stored  on 
the  library  file.  During  the  building  process,  the  build  mode  may  be  turned  off  by  specify¬ 
ing  ‘NOBUILD’.  Construction  may  be  resumed  by  then  specifying  'BUILD'.  'BUILD'  is  au¬ 
tomatically  specified  when  USTRCT  is  called  and  'NOBUILD'  is  set  when  UTERM  is 
called.  Normally,  the  structure  being  built  will  be  displayed  during  the  construction  pro¬ 
cess.  If  the  user  does  not  wish  to  view  the  structure  he  may  specify  ‘NOEXECUTE'.  If 
this  is  done,  the  structure  element  will  be  saved  but  no  visible  output  will  appear  The 
user  may  return  to  viewing  his  construction  process  by  setting  ‘EXECUTE’  which  is  the 
default  mode. 

To  invoke  an  already  created  structure,  the  user  uses  the  U3CALL  or  UCALL  routines 
specifying  the  name,  position,  and  orientation  of  the  data  structure.  The  data  structure 
specified  will  be  displayed  as  indicated.  If  another  structure  is  currently  being  built 
when  this  call  takes  place,  a  U3CALL  structure  element  for  the  invoked  structure  will  be 
inserted  in  the  active  structure. 

When  the  user  terminates  the  GCS  program,  he  may  wish  to  save  his  library  file  so  it  can 
be  restored  at  a  later  time.  A  routine  called  UTILTY  is  used  to  perform  several  utility 
functions  concerned  with  maintaining  the  library  file.  To  save  the  current  library  file,  the 
user  simply  invokes  UTILTY  (‘SAVE’,  file  number).  This  file  number  must  be  different 
from  the  library  file.  All  data  structure  contained  in  the  library  will  be  reformatted  into  a 
standard  Hollerith  card  format  and  written  to  the  save  file.  To  restore  a  saved  file  to  the 
library  file,  the  UTILTY  (‘LOAD’,  file  number)  function  would  be  used.  Other  UTILTY 
functions  exist  to  MERGE  a  save  file  into  the  existing  library  file,  PURGE  the  existing  libr¬ 
ary  file,  and  DELETE  or  RENAME  structures  in  the  library  file. 
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TABLE  X-1 


STRUCTURE  ELEMENT  TABLE 


Function  Opcode 


UARC  1 

U3CALL  2 

U3CSYS  3 

UCRCLE  4 

U3DRAW  5 

U3MOVE  6 

U3PEN  7 

U3PRNT  8 

UPRNT1  9 

UPSET  io 

U3ROTA  1 1 

U3SCAL  12 

USET  13 

U3WRIT  14 

UWRIT1  15 

UPSET  16 

U3PRNT  17 

U3WRIT  18 

UPRNT1  19 

UWRIT1  20 

URECT  21 

UFONT  22 


No.  Real  No.  Alpha  Argument 

Sequence 


3 

9 

9 

3 

3 

3 

3 

4 
1 
1 

3 

3 
0 

4 
1 

0 

3 

3 

0 

0 

2 

0 


0  R,R,R 

2  R,R,R,R,R,R,R,R,R,A 

0  R,R,R,R,R,R,R,R,R 

0  R,R,R 

0  R,R,R 

0  R,R,R 

0  R,R,R 

0  R,R,R,R 

1  A,R 

1  A,R 

0  R,R,R 

0  R,R,R 

1  A 

0  R,R,R,R 

1  A,R 

2  A, A 

1  R,R,R,A 

1  R,R,R,A 

2  A, A 

2  A, A 

0  R,R 

1  A 


x-2 


GOO 


C  THIS  PROGRAM  DEMONSTRATES  THE  SAVING  OF  DATA  STRUCTURES  AND 
C  SHOWS  THE  DIFFERENCE  BETWEEN  ORTHOGONAL  AND  PERSPECTIVE 

C  PLOTTING. 

C 

C  ATTACH  A  PERMANENT  FILE  TO  SAVE  THE  DATA  STRUCTURES  ON  A 
C  HONEYWELL  COMPUTER. 

C 

CALL  ATTACH  (8//TEK3DE MO/SAVE;',  3,0, 1ST,) 

CALL  USTART 
CALL  UPSET  ('LIBR',1 .) 

CALL  UPSET  ('SETD',1.) 

CALL  UPSET  ('TERMINATOR', 

CALLUSET  ('PERC') 

CALL  UDAREA  (0.,1  00.,0.,1  00.) 

CALL  UOUTLN 

CALL  UWINDO  (-1  00., 1  00., -1  00., 1  00.) 

CALL  USTRCT  ('AXIS') 

CALL  AXIS 

CALL  UTERM  ('AXIS') 

CALL  USET  ('ORTH') 

CALL  U3CSYS  (25., 25., 25., 1  .,1  .,1  „1  0  ,1  0.,0.) 

CALL  UVIEW  (-20.,-20.,-1  50.,0.,0.,0.) 

CALL  USTRCT  ('BOX') 

CALL  BOX 

CALL  UTERM  ('BOX') 

CALL  USET  ('PERSPECTIVE') 

CALL  BOX 

CALL  UTILITY  ('SAVE', 8.) 

CALL  UEND 

STOP 

END 

SUBROUTINE  AXIS 
CALL  USET  ('DASH') 

NEED  TO  DO  A  MOVE  INSIDE  STRUCTURE 

CALL  U3MOVE  (-20  ,-20., -20.) 

CALL  U3PEN  (50., -20., -20.) 

CALL  UPRNT1  ('X;','TEXT') 

CALL  U3MOVE  (-20., -20  ,-20.) 

CALL  U3PEN  (-20., 50., -20.) 

CALL  UPRNT1  ('Y;', 'TEXT') 

CALL  U3MOVE  (-20., -20., -20.) 

CALL  U3PEN  (-20.,-20.,1  00.) 

CALL  (UPRNT1  ('Z;', 'TEXT') 

RETURN 
END 

SUBROUTINE  BOX 
CALL  USET  ('LINE') 

CALL  UMOVE  (0.,0.,0„) 

CALL  U3PEN  (10.,0.,0.) 

CALL  U3PEN  (10.,10.,0.) 

CALL  U3PEN  (0.,1  0.,0.) 

CALL  U3PEN  (0.,0.,0.) 

CALL  U3MOVE  (1  0.,0.,0.) 

CALL  U3PEN  (10.,0.,60.) 

CALL  U3PEN  (1  0..1  0„60.) 

CALL  U3PEN  (10„10.,0.) 
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CALL  U3M0VE  (0..10  .0.) 
CALL  U3PEN  (0..10..60.) 
CALL  U3PEN  (1  0.,1 0..60.) 
CALL  U3M0VE  (0..0..0.) 
CALL  U3PEN  (0  ,0., 60.) 
CALL  U3PEN  (0.,10.,60.) 
CALL  U3PEN  (0..10..0.) 
CALL  U3MOVE  (0..0..60.) 
CALL  U3PEN  (10..0..60.) 
RETURN 
END 


EXAMPLE  X-1 


x-4 


CALL. 
CAL L 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

STOP 

END 


ATTACH  C8, VTEK3PEM0/8AVE, ',9,0, 
USTART 

UPSET  C'TERMINAT0R','*O 
UPSET  C'SPEEP', 120.  > 

UPSET  C'LI8RARY',l .> 

UPSET  C'SETPASH',1 .> 

USET  C'PERCENTUNTTS'5 
UP AREA  C0.,100.,8.,  188.:> 

UERASE 

UOUTLN 

UVINPO  C-188., 188. ,-188., 188. > 

USTRCT  C 'AXIS  O 

AXIS 

UTERM  C' AXIS  O 
USET  C'ORTHOQONALO 
U3CSYS  C2C.,2S.,2S.,  I  .,  1  .,  I 18 
UVIEN  C-20 . , -28 .,-lE0.,0.,B.,B.; 
USTRCT  C'BOX  '> 

BOX 

UTERM  C'BOX  O 
USET  C  '  PERSPECTIVE  '  > 

BOX 

UTILTY  C'SAVE',t.> 

UENP 


1ST,  } 


.,18. ,8. 5 
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SUBROUTINE  AXIS 
CALL  USET  L'PAStt') 

CALL  U3M0VE  <-20 ., -20 . , -20 . ) 
CALL  U3PEN  CSC ., -20 . , -20 . ) 
CALL  UPRNTl  <'Xj','TEXT') 
CALL  U3M0VE  <-20 . , -20 . , -20 . ) 
CALL  U3PEN  <-20.,E0.,-20.) 
CALL  UPRNTl  <'Y* ', 'TEXT') 
CALL  U3M0VE  <-20., -20., -20.) 
CALL  U3PEN  <-20. ,-20., 100.) 
CALL  UPRNTl  <'Zj ', 'TEXT') 
RETURN 
END 


subroutine  3o;< 
call  uset  c'line') 

CAL-  13NOVE  <0.,0,,0.) 
CALL  USPEN  <10,,0.,0.) 
CALL  L3PEN  <10.,10.,0.) 
CALL  U3PEN  <0., 10, ,6.) 
CAwL  U3PEN  <6,,e,,fi.) 
CAU.  L1SNDVE  Cl 
CALL  U3PEN  C l 0 . , 8 . , 60 . ) 
CAL*.  U3PEN  <10,,  |0., 00,) 
CALL  U0PEN  <10.,I0,,0,> 
CAU.  13NOVE  <0 . ,  1 0 , ,  0 , ) 
CAU  U3PGN  <0,, 10.  ,00 .) 
CAU  USPEN  <10., 10,, 0«.) 
CALL  U3PUVE  <0 , ,0. , 0 . ) 
CAU.  U3PEN  ce.,0.,00.) 
CALL  U3PEM  <0.,t®.,00,) 
CALL  USPEN  <0 . , 1 0 , , 0 . ) 
CAU-  U3N0VE  <0 , , 0 , , 00 . ) 
CALL  USPEN  <100.  00 , ) 
RETURN 
ENP 
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c 

c 

c 

c 


THIS  PROGRAM  DEMONSTRATES  THE  LOADING  OF  DATA  STRUC7URES  , 
THAT  WERE  PREVIOUSLY  SAVED  ON  A  PERMANENT  FILE  ON  A  HONEYWELL 
COMPUTER. 


CALL  ATTACH  (8,'/TEK3DEMO/SAVE;',3,0,IST,) 

CALLUSTART 

CALL  UPSET  ('LIBR',1 .) 

CALL  UPSET  ('SETD',1 .) 

CALLUSET  ('PERC') 

CALL  UDAREA  (0.,1 00.,0.,1 00.) 

CALL  UOUTLN 

CALL  UWINDO  (-1 00., 1 00., -1 00., 1 00.) 

CALL  UTILTY  ('LOAD', 8.) 

CALL  U3MOVE  (0.,0.,0.) 

CALL  UINVOK  ('AXIS') 

CALLUSET  ('ORTH') 

CALL  U3CSYS  (25., 25., 25., 1  .,1  .,1  .,1 0.,1  0.,0.) 
CALL  UVIEW  (-20., -20.-1  50.,0.,0.,0.) 

CALL  U3MOVE  (0.,0.,0.) 

CALL  UINVOK  ('BOX') 

CALL  USET  ('PERSPECTIVE') 

CALL  U3MOVE  (0.,0.,0.) 

CALL  UNIVOK  ('BOX') 

CALLUEND 

STOP 

END 


EXAMPLE  X-2 
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CAU. 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

STOP 

ENP 


ATTACH  (8, '/TEK3PEMQ/SAVE* / ,3,2 
USTART 

UPSET  ('LIBRARY', 1 
UPSET  ('TERMINATOR' 

UPSET  C'SPEEP'  120.$ 

USET  ('PERCENTUNITSO 
UP  AREA  (0.,  100. ,0.,  100.} 

U  ERASE 
UOUTLN 

winpo 

UTXLTY  ('LOAD',  8. > 

U3M0VE  (0.,0.,0.:> 

U1NV0K  ('AXIS  O 

USET  ( ' ORTHOGONAL ' 3 

U3CSYS  (25 .,2£1<216,,|,/|,,|1|0 

UINVOK  ('BOX 

USET  C' PERSPECTIVE O 

U3H0VE  (0.,0.,0.;> 

UINVOK  ('BOX  '> 

UENP 


1ST,} 


,10. ,0.? 


x-8 


c 

c 

c 

c 


tuic  program  demonstrates  the  loading  of  data  structuf  es 

THAT  WERE  PREVIOUSLY  SAVED  ON  A  PERMANENT  FILE  ON  A  HONEYWELL 
COMPUTER  FOR  DISPLAY  ON  TEKTRONIX  401  4/401  5  TERMINAL 


CALL  ATTACH  (8,'/TEK3DEMO/SAVE;',3,0,IST,) 

CALLUSTART 

CALL  UPSET  ('LIBR',1.) 

CALL  UTILITY  ('LOAD', 8.) 

CALL  UPSET  ('TERM',' <') 

CALLUSET  ('VIEW') 

CALL  UVWPRT  (150.) 

CALL  UWINDO  (-1  00., 1  00., -1  00., 1  00.) 

CALL  UVIEW  (-40., 200., 70., -20., 20., 0.) 

CALL  UDAREA  (0.,7.,0.,7.) 

CALL  VILLAG 

CALL  UDAREA  (7. 1,1  4, 10., 7  ) 

CALL  VIEW  (-70  ,-1  60  ,50.,0.,0  ,1  0.) 


CALL  VILLAG 
CALLUEND 
STOP 
END 

SUBROUTINE  VILLAG 
CALLUSET  ('XYZ') 

CALLUSET  ('SYST') 

CALLUSET  ('REFE') 

CALLUSET  ('BLACK') 

CALL  U3CALL  (-50.,20.,0.,1  .,1  .,1 ., 90., 0., 0., 'CHURCH  ) 


CALLUSET  ('RED') 

CALL  U3CALL  (24..-1  9..0..1  .,1  .,1 ., 90., -90., 0., 'SCHOOL  ) 
CALLUSET  ('BLUE')  ,oi„A(. 

CALL  U3CALL  (70.,70.,0.,0.7,0.7,0-.7,0.,0.,0.,'PIZZA  ) 
CALLUSET  ('BLACK') 

CALL  U3CALL  (0.,0.,0.,1  .,1  ,1  ,0.,0.,0.,'ROAD') 


RETURN 

END 
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CALL  USTART  '/TEK30EN0/SAVE,  ',3,B,IST,  > 

CALL  UPSET  < 'LIBRARY 1 .? 

CALL  UTILTY  <'LOA0',S.? 

CALL  UPSET  ('TERMINATOR', ','? 

CALL  USET  C'VIEVOISTANCEO 
CALL  UVVPRT  USB. 5 

CALL  uvinoo  c-ibb.,  ibb.,-ibb.,  ibb.? 

SS±  iff” 

CALL  UEN£> 

STOP 

ENP 

SUBROUTINE  VILLAS 
CALL  USET  C'XYZ  '5 
CALL  USET  C'SYSTEMAXIS'? 

CALL  USET  ('REFERENCEAXIS'? 

CALL  USET  ('BLACK'? 

call 

call  1 '' 1  *' 1  /sc^° 

cau!  uIc^^ZSck'!,'®,'®,7'®*7'®*7'®-®*'®*''pi22ao 

RETURN9CALL  C®"®*'®*'l-'lwl.,B.,B.,B.,'ROA0  '? 

ENP 
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CHAPTER  XI 

PICTURE  SEGMENTATION  AND  NAMING 


Refresh  Graphic  Facilities 

Many  computer  graphics  display  applications  require  only  a  static  display  in  order  to 
convey  information.  That  is,  the  complete  picture  provides  all  of  the  relevant  info  mation 
that  can  be  derived  from  the  data  used  to  produce  the  display.  In  some  situations 
however,  a  static  display  provides  incomplete  information.  For  example,  the  plot  of  a 
missile  trajectory  does  not  reveal  the  relative  speed  of  the  projectile  while  in  flight.  In 
such  situations,  a  dynamic  display  which  portrays  motion  provides  more  information  to 
the  user  than  does  a  static  display.  GCS  provides  a  facility  for  the  dynamic  display  of 
information  and  for  selective  erase  of  information  on  refresh  graphic  display  devices  if 
available.  The  facility  allows  the  user  to  identify  and  bracket  a  portion  or  portions  of  his 
display,  assign  a  name  to  the  section,  turn  the  named  section  on  or  off,  and  replace  a 
named  section  with  a  new  definition  of  the  section 

The  basic  unit  of  information  of  a  dynamic  display  is  the  ‘frame’.  A  frame  represents  a 
portion  of  a  display  having  a  known  origin  and  a  known  '®^inat'on- ■  ™e  GCb 
subroutines  which  delimit  the  start  and  the  end  of  a  frame  are  UFRAME  and  UFREND. 
They  are  invoked  as  follows: 

CALL  UFRAME  (NAME) 

CALL  UFREND  (NAME) 

where  NAME  is  an  eight  character  alphanumeric  variable  or  constant  The  sub[°uJir}® 
UFRAME  indicates  the  starting  point  of  the  framed  information  and  subroutine  UrHENU 
denotes  the  ending  point.  Note  that  multiple  frames  may  be  defined,  but  nesting  of 
frames  is  not  permitted;  that  is,  subroutine  UFREND  must  be  called  to  ‘close  the  current 
frame  before  the  subroutine  UFRAME  is  invoked  to  ‘open’  another  frame. 

Whenever  a  UFRAME/UFREND  pair  are  invoked  to  replace  the  previous  occurrence  of 
the  named  frame,  the  previous  occurrence  is  deleted  upon  completion  of  the  new  version 
of  the  frame,  as  signalled  by  the  call  to  UFREND  for  that  frame.  Thus  the  compete  frame 
will  replace  the  previous  complete  frame.  This  is  the  default  condition  in  GCS  and  is 
known  as  ‘invisible’  building  of  a  frame.  It  can  be  specified  by  the  following  invocation  to 

USET: 


CALL  USET  (‘INVISIBLE’) 


For  some  dynamic  graphic  applications,  it  is  preferable  t to  s 5eeJhe/.ranle|f^n19|^,RjiM^Fn, is 
bv-line.  In  this  case,  the  previous  frame  must  be  deleted  when  the  call  to  UFRAME  is 
made  for  frame  redefinition.  The  user  can  request  the  visible  building  of  a  frame  by  the 
following  call: 


CALL  USET  (‘VISIBLE’) 

After  a  frame  is  completely  built,  and  terminated  by  a  call  to  UFREND,  it  may  be  selective¬ 
ly  ‘turned  on’  and  'turned  off’  by  the  use  of  the  following  GCS  subroutines: 

CALL  USHOW  (NAME) 

CALL  UNSHOW  (NAME) 


where  NAME  is  the  eight  character  alphanumeric  variable  or  constant  which ms  the  name 
assiqned  to  the  frame  upon  which  the  operation  is  to  be  performed  When  USHOW  is 
invoked  for  an  invisible  frame,  the  frame  is  made  visible,  if  UNSHOW  is  invoked  for  a  visi¬ 
ble  frame,  the  frame  is  made  invisible. 
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Note  that  the  GCS  subroutine  UERASE  affects  the  status  of  frames  by  completely  remov¬ 
ing  all  frames  and  frame  names  from  GCS.  Thus  if  USHOW  or  UNSHOW  are  invoked 

mmaoc8  J,0  U^RASE'  an  error  wil1  be  indicated.  In  addition,  it  is  improper  to  call 
UfcHASE  while  a  frame  is  ‘open’,  i.e.,  after  a  call  to  UFRAME  and  before  a  call  to  UFREND. 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  MULTIPLE  ENTITY  FRAMING. 
INITIALIZE  VARIABLES,  ENTER  GCS,  OUTLINE  VIRTUAL  WINDOW. 


X-10.0 

Y  =  80.0 

CALLUSTART 

CALL  UOUTLN 

CALL  UPSET  ('LIBRARY',  1  ) 

DEFINE  A  LOOP  TO  DRAW  A  TRIANGLE  AND  SQUARE  DYNAMICALLY. 

DO  1  1  =  1,8 

INDICATE  THE  BEGINNING  OF  THE  TRIANGLE  FRAME  DEFINITION,  THEN 
PROVIDE  TEN  COMMANDS  REQUIRED  TO  DRAW  THE  FIGURE 

CALL  UFRAME  ('TRIANGLE') 

CALLUMOVE  (X,X) 

CALLUPEN  (X,(X  +  5.0)) 

CALLUPEN  ((X  +  5.0),X) 

CALLUPEN  (X,X) 

INDICATE  THE  TERMINATION  OF  THE  TRIANGLE  FRAME,  AND  THE 
BEGINNING  OF  THE  FRAME  DEFINITION  FOR  THE  SQUARE. 

CALL  UFREND  ('TRIANGLE') 

CALL  UFRAME  ('SQUARE') 

NOW  PROVIDE  THE  PEN  COMMANDS  REQUIRED  TO  DRAW  A  SQUARE. 

CALLUMOVE  (X,Y) 

X  =  X+10.0 
Y  =  Y-1  0  0 

CALL  URECT  ((X-5.0),Y+  1  5.0)) 

INDICATE  THE  TERMINATION  OF  THE  SQUARE  FRAME,  AND  LOOP. 

CALL  UFREND  ('SQUARE') 

1  CONTINUE 
CALLUEND 
STOP 
END 
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X  »  10.0 

Y  -  80.0 
CALL  U3TART 

CALL  UPSET  C '  LIBRARY 1  .:> 

CALL  UOUTLN 

DO  1  J  -  j  0 

CALL  U FRAME  C'TRIANSLEO 

CALL  UMOVE  CX,X> 

CALL  UPEN  (X, CX+B . 0>  > 

CALL  UPEN  CCXfS.0?#XJ 
CALL  UPEN  <X,X> 

CALL  UFREND  C'TRIANCLEO 
CALL  UFRAME  C' SQUARE O 
CALL  UMOVE  CX,Y> 

X  ■*  X  +  10.0 

Y  «  Y  -  10.0 

CALL  URECT  CCX-B.0>,CY*1S.0» 

CALL  UFREND  <' SQUARE O 

CONTINUE 

CALL  UENP 

STOP 

END 
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SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  GCS  FRAMING  FACILITIES. 

DEFINE  INITIAL  POSITION,  ENTER  GCS,  OUTLINE  VIRTUAL  WINDOW 

CHARACTER  CHAR*1 

X  =  10.0 

CALLUSTART 

CALL  UOUTLN 

CALL  UPSET  ('LIBRARY', 1.) 

DEFINE  A  LOOP  TO  DYNAMICALLY  DISPLAY  8  DEFINITIONS  OF  A  TRIANGLE. 
INDICATE  THE  START  OF  THE  'FRAMED'  INFORMATION. 

DO  1  1  =  1,8 

CALL  UFRAME  ('TRIANGLE') 

PEN  COMMANDS  TO  DEFINE  THE  TRIANGLE.  A  POSITIONAL  VARIABLE  IS 
ALSO  UPDATED  WITHIN  THIS  LOOP. 

CALLUMOVE  (X,X) 

CALLUPEN  (X,(X  +  5.0)) 

CALLUPEN  ((X  +  5.0),X) 

CALLUPEN  (X  =  X+10.0 

INDICATE  THE  TERMINATION  OF  THE  TRIANGLE  FRAME  DEFINITION. 

CALL  UFREND  ('TRIANGLE') 

1  'DEACTIVATE'  THE  EIGHTH  FRAME  DEFINITION  OF  THE  TRIANGLE  THAT  WAS 
DEFINED;  I.E.,  MAKE  IT  'INVISIBLE'. 

CALL  UNSHOW  ('TRIANGLE') 

REQUEST  A  CHARACTER  FROM  THE  KEYBOARD;  ACTIVATE  THE  LAST 
FRAME  IF  THE  LETTER  'T'  IS  ENTERED;  OTHERWISE,  TERMINATE. 

2  CALL  UAIN  (CHAR) 

IF  (CHAR  NE.'T')  GO  TO  3 
CALL  USHOW  ('TRIANGLE') 

GO  TO  2 

3  CALLUEND 
STOP 
END 


EXAMPLE  XI-2 


xi-5 


•  • 

•  • 

•  •  •  I 


r*. 

•  • 

•  •  •  i 


•  •  •  # 


r*. 

•  • 

• « . « 


•  • 

• « •  i 


CHARACTER  CHAR**1 

X-10.0 

CALL  U8TART 

CALL  UPSET  C'LIBRARY', l O 

CALL  UOUTLN 

do  i  i  -  it  e 

CALL  UFRAME  C'TRIAN0LEO 

CALL  UMOVE  CX^XD 

CALL  UPEN  <X,<X+5.0» 

CALL  UPEN  CCX+5.0>#X> 

CALL  UPEN  CX,X:> 

X  ■  X  t  10.0 

CALL  UFRENO  C ' TRXAN0LE ' > 

1  CONTINUE 

CALL  UNSHOW  C'TRIANCLEO 

2  CALL  UAIN  CCHAR> 

IP  CCHAR  .NE.  'TO  00  TO  3 
CALL  USHOW  C'TRIANOLEO 
00  TO  2 

3  CALL  UEND 
STOP 

END 


xi-6 


ooo  oooo  oooo 


C  SAMPLE  PROGRAM  USED  TO  ILLUSTRATE  ELEMENTARY  FRAMING  AND 
C  ROTATION.  THE  ROTATIONAL  TECHNIQUE  EMPLOYED  IN  THE  PROGRAM  IS 
C  QUITE  LIMITED,  HENCE  THE  USER  IS  DIRECTED  TO  USE  THE  GCS 
C  SUBROUTINE  'UCOSYS'  FOR  APPLICATIONS  REQUIRING  MORE  ROTATIONAL 

C  CAPABILITIES. 

C 

C  INITIALIZE  VARIABLES,  ENTER  GCS,  DEFINE  NEW  VIRTUAL  WINDOW,  AND 
C  OUTLINE  IT. 

C 

DATA  DEGREE/0.0/ 

CALLUSTART 

CALL  UWINDO  (-50., 50  .-50..50.) 

CALL  UOUTLN 
CALL  UPSET  ('LIBRARY',  1.) 

SPECIFY  THAT  POLAR  COORDINATES  ARE  TO  BE  USED  TO  SIMPLIFY  THE 
PROGRAM,  AND  DEFINE  LOOP  TO  DRAW  A  SQUARE  DYNAMICALLY. 

CALLUSET  ('POLAR') 

DO  1  1  =  1,12 

DEGREE  =  DEGREE  =  30.0 

INDICATE  THE  BEGINNING  OF  FRAME  DEFINITION  FOR  THE  SQUARE  AND 
PROVIDE  THE  NECESSARY  COMMANDS  TO  ROTATE  AND  DRAW  IT. 

CALL  UFRAME  ('SQUARE') 

CALL  UMOVE  (25., DEGREE) 

CALL  UPSET  ('ROTATE', DEGREE) 

CALLUSET  ('RELATIVE') 

CALL  UPLYGN  (0..0..4..5.) 

CALLUSET  ('ABSOLUTE) 

INDICATE  THE  TERMINATION  OF  THE  SQUARE  FRAME,  AND  THE  LOOP. 

CALL  UFREND  ('SQUARE') 

1  CONTINUE 
CALLUEND 
STOP 
END 
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DATA  DE8REE/3.3/ 

CALL  UfiTART 

CALL  UPSET  C'LIBRARY'. I .* 

CALL  UUINDO  C -63. ,53 .. -63. .53.5 

CALL  UOUTLN 

CALL  USET  C' POLAR'* 

DO  I  I*  I,  12 
DECREE  -  DECREE  f  33.3 
CALL  UPRAME  < 'SQUARE'* 

CALL  UMOVE  C26.,DE3REE* 

CALL  UPSET  C ' ROTATE '.DE8REE 5 
CALL  USET  C 'RELATIVE' 5 
CALL  UPLY0N  C8..8.,4.,B.* 

CALL  USET  C' ABSOLUTE'* 

CALL  UFREND  C'8QUARE'* 

I  CONTINUE 
CALL  UEND 
STOP 
END 
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C  SAMPLE  PROGRAM  ILLUSTRATING  APPLICATIONS  OF  GCS  SUBROUTINES 
C  'USHOW'  AND  'UNSHOW'.  A  SQUARE  WILL  BE  SIMULTANEOUSLY  SCALED, 
C  ROTATED  (ORIENTED),  AND  TRANSLATED  IN  NINE  DISCRETE  PHASES,  WITH 
C  A  SEPARATE  FRAME  REPRESENTING  EACH  PHASE. 

C 

C  INITIALIZE  VARIABLES,  ENTER  GCS,  AND  OUTLINE  VIRTUAL  WINDOW. 

C 

CHARACTER  FRAME*8(9) 

DATA  FRAME/' A',  'B',  'C',  'D',  'E',  'F',  'G',  'H',  '17 

CALL  USTART 
CALL  UOUTLN 
CALL  UPSET  ('LIBRARY', 1.) 

SETUP  LOOP  TO  DEFINE  EACH  OF  THE  NINE  FRAMES  FOR  THE  SQUARE. 

DO  1  1  =  1,9 
X  =  1  O.O'FLOAT(I) 

INDICATE  THE  BEGINNING  OF  FRAME  DEFINITION  FOR  THE  SQUARE,  AND 
PROVIDE  COMMANDS  TO  SCALE,  ROTATE,  AND  TRANSLATE  IT. 

CALL  UFRAME  (FRAME(D) 

CALL  UMOVE  X,X) 

CALL  UPSET  ('ROTATE',  X) 

CALL  USET  ('RELATIVE') 

CALL  UPLYGN  (0  ,0.,4  ,FLOAT(D) 

CALL  USET  ('ABSOLUTE') 

INDICATE  THE  TERMINATION  OF  EACH  FRAME,  AND  CALL  UNSHOW  TO  MAKE 
THE  NEWLY  DEFINED  FRAME  INVISIBLE. 

CALL  UFREND  (FRAME(I)) 

CALL  UNSHOW  (FRAME  (0) 

1  CONTINUE 

AT  THIS  POINT,  ALL  OF  THE  FRAMES  HAVE  BEEN  DEFINED,  NOW  WE  WILL 
DISPLAY  EACH  OF  THE  FRAMES  IN  SUCCESSION,  FOR  A  TOTAL  NUMBER  OF 
90  CYCLES  =  10  OCCURRENCES  OF  EACH  FRAME. 

DO  2  1  =  1,90 
J  =  MOD((l-1),9)  +  1 

CALL  UNSHOW  TO  DISPLAY  THE  'J'TH  FRAME  (MAKE  IT  VISIBLE),  AND  THEN 
CALL  UNSHOW  TO  MAKE  IT  INVISIBLE.  SINCE  THIS  IS  DONE  AT  RAPID  RATE, 
THE  SQUARE  WILL  APPEAR  TO  BE  DYNAMICALLY  SCALED,  ROTATED,  AND 
TRANSLATED 

CALL  UNSHOW  (FRAME(J)) 

CALL  UNSHOW  (FRAME(J)) 

2  CONTINUE 

INDICATE  END  OF  ALL  GRAPHIC  ACTIVITY  AND  TERMINATE  PROGRAM. 

CALL  UEND 
STOP 
END 
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CHARACTER  FRAM£*6CQ3 

DATA  FRAME/'A', 'B', 'C'  '0','E'  *f*  'O'  'H'  'I */ 
CALL  USTART  '  '  '  * 

CALL  UP8KT  C 'LIBRARY',  1 . 3 

CALL  UOUTLN 

do  i  i  -  i,  a 

X  -  la.a  *  FLOAT Cl  3 

CALL  U FRAME  C FRAME Cl 3 3 

CALL  UMOVE  CX-X3 

CALL  UPSET  C ' ROTATE ',X3 

CALL  U8ET  C 'RELATIVE' 3 

CALL  UPLY0N  C8. ,0. ,4. ,FLOAT<I33 

CALL  USET  C' ABSOLUTE' 3 

CALL  UFREND  C FRAME Cl 3 3 

CALL  UN8H0W  CFRAMECI33 

CONTINUE 

DO  2  I  -  t,  as 

U  -  MODCCI-1 3,03  +  1 

CALL  USHOW  CFRAMECU33 

CALL  UNSHOW  CFRAMECU33 

CONTINUE 

CALL  UEND 

STOP 

END 
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ALPHABETICAL  LISTING  OF  GCS  SUBROUTINES 

UAIN 

Accepts  one  character  from  the  terminal 

CALL  UAIN  (ICHAR) 

UALPHA 

Insures  that  terminal  is  in  alphanumeric  mode 

CALL  UALPHA 

UAOUT 

Outputs  a  character  at  current  pen  position  subject  to  margining 

CALL  UAOUT  (ICHAR) 

UAPEND 

Adds  GCS  string  terminator  to  character  string 

CALL  UAPEND  (COUNT, DATAIN.DATOUT) 

UARC 

Draws  an  arc  from  current  pen  position 

CALL  UARC  (X,Y, ANGLE) 

UASPCT 

Forces  the  display  dimensions  to  satisfy  the  specified  aspect  ratio 

CALL  UASPCT  (RATIO) 

UAVERG 

Fits  a  moving  average  curve  to  time  series  data 

CALL  UAVERG  (ARRAY, POINTS, FCST, PERIOD) 

UAXIS 

Draws  axes  with  appropriate  numeric  and  alphanumeric  labeling 

CALL  UAXIS  (XMIN,XMAX,YMIN,YMAX) 

UBAR 

Draws  a  bar  chart  with  appropriate  numeric  and  alphameric  labels 

CALL  UBAR  (ARRAY, PTS, LABELS, SIZE) 

UBELL 

Sounds  the  audible  alarm  at  the  terminal 

CALL  UBELL 

UCALL 

Invokes  a  graphic  data  structure  in  two  dimensions 

CALL  UCALL  (NAME, DX,DY,SX,SY, ANGLE) 

UCHART 

Draws  a  grouped  bar  chart  for  multi-valued  data 

CALL  UCHART  (ARRAY, GROUPS, BARS, LABELS, YMAXL) 

UCLOSE 

Closes  the  current  open  frame/segment 

CALL  UCLOSE  (SEGNAM) 

UCOLOR 

Defines  entries  in  a  program  modifiable  table  of  colors 
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UCONIC 

UCONTR 

UCOSYS 

t- ,, 

UCOUNT 

UCRCLE 

UDAREA 

UDELAL 

UDELET 

UDIMEN 

UDOIT 

UDRAW 

UDRIN 

UEND 

UERASE 


CALL  UCOLOR  (CLRIDX,  CLRCNT,  CLRNAM,  CLRVAL) 

Draws  generalized  conic  sections 

CALL  UCONIC  (X,Y,P,E,THETA1  .THETA2) 

Draws  contours  on  regular  array  of  data 

CALL  UCONTR  (Z,X,Y,A,FX,FY,CURVE,FN) 

Creates  a  user  coordinate  plotting  system 

CALL  UCOSYS  (DX.DY.SX.SY, ANGLE) 

Counts  number  of  characters  in  character  string 
CALL  UCOUNT  (DATA, COUNT) 

Draws  a  circle  whose  center  location  and  radius  are  specified 
CALL  UCRCLE  (X,Y, RADIUS) 

Sets  the  device  display  area  associated  with  user  window 
CALL  UDAREA  (XMIN,XMAX,YMIN,YMAX) 

Deletes  all  currently  defined  frame/segments 
CALL  UDELAL 

Deletes  a  currently-defined  frame/segment 
CALL  UDELET  (SEGNAM) 

Adjusts  physical  boundaries  of  output  device  (alters  aspect  ratio) 
CALL  UDIMEN  (XMAX.YMAX) 

Perform  various  page  layout  functions 
CALL  UDOIT  (ACTION) 

Draws  solid  line  vector 

CALL  UDRAW  (X,Y) 

Performs  the  input  requested  graphic  operation  and  returns  request 
CALL  UDRIN  (X.Y.ICHAR) 

Terminates  graphic  operations  and  positions  pen  in  home  position 
CALL  UEND 

Erases  the  screen  or  requests  a  clean  plotting  surface 
CALL  UERASE 
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UERROR 

Returns  listing  of  source  records  with  GCS  error  commentary 

CALL  UERROR  (ERLAST, TOTAL) 

UFLUSH 

Insures  that  visual  display  reflects  all  net  program  graphical  output 

CALL  UFLUSH 

UFONT 

Changes  the  text  font 

CALL  UFONT  (NAMFNT) 

UFORMT 

Configures  the  display  surface  to  the  requested  format 

CALL  UFORMT  (FORMAT) 

UFRAME 

Defines  the  start  of  a  named  set  of  graphical  commands 

CALL  UFRAME  (NAME) 

UFREND 

Defines  the  end  of  a  named  set  of  graphical  commands 

CALL  UFREND  (NAME) 

UGRIN 

Gets  coordinates  and  a  character  from  terminal  and  returns  them 

CALL  UGRIN  (X.Y.ICHAR) 

UHDCPY 

Generate  a  hardcopy 

CALL  UHDCPY 

UHISTO 

Draws  a  histogram  with  appropriate  numeric  and  alphanumeric  labels 

CALL  UHISTO  (ARRAY, PTS, BARS) 

UHOME 

Moves  beam  to  home  position 

CALL  UHOME 

UIMAGE 

Applies  general  2-D  image  transformations  to  ‘retained’  frames/segments 

CALL  UIMAGE  (X,Y,SX,SY,R,SEGNAM) 

UINPUT 

Inputs  alphanumeric  information  from  the  current  position 

CALL  INPUT  (DATA, COUNT, FLAG, OPTION) 

UINVOK 

Invokes  a  GCS  structure  at  the  current  position 

CALL  UINVOK  (NAME) 

ULINE 

Connects  two  arrays  of  points  with  current  line  option 

CALL  ULINE  (X.Y.PTS) 

ULINFT 

Determines  linear  least  squares  fit  to  points  provided 

CALL  ULINFT  (X.Y.XN.S.YI) 
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ULOOK 


ULSTSQ 

UMARGN 

UMENU 

UMODFY 

UMOVE 

UNSAVE 

UNSHOW 

UNSVPN 

UNSVTR 

UOPEN 

UORIGN 

UOUTLN 

UPAUSE 


Establish  portion  display  area  onto  which  corresponding  portion  of  cur¬ 
rent  virtual  space  viewport  will  be  mapped 

CALL  ULOOK  (XMIN,XMAX,YMIN,YMAX) 

Calculates  least  squares  polynomial  fit  to  points  provided 

CALL  ULSTSQ  (X,Y,XN,COEFF) 

Sets  the  left  and  right,  top  and  bottom  alphanumeric  window  boundaries 
CALL  UMARGN  (XLEFT,XRIGHT,YBOTTM,YTOP) 

Menu  board  generating  routine 

CALL  UMENU  (POINTS, LABELS, CHOICE) 

Modifies  setting  of  frame/segment  attributes 

CALL  UMODFY  (SEGNAM.NAMAT.ATVALU) 

Moves  the  pen  to  position  specified  by  input  arguments 
CALL  UMOVE  (X,Y) 

Restores  all  variables  of  the  graphic  status  area 
CALL  UNSAVE  (ARRAY) 

Causes  the  named  frame/segment  of  graphical  information  to  be  made 
invisible 

CALL  UNSHOW  (NAME) 

Restores  all  pen  related  variables  in  the  graphics  status  area 
CALL  UNSVPN  (ARRAY) 

Restores  coordinate  system  related  variables  in  the  graphics  status  area 
CALL  UNSVTR  (ARRAY) 

Opens  a  frame/segment 

CALL  UOPEN  (SEGNAM.SEGTYP) 

Creates  a  user  coordinate  system  at  the  current  beam/pen  position 
CALL  UORIGN 

Draws  a  box  around  the  user’s  display  area 
CALL  UOUTLN 

Suspends  execution  until  one  character  is  entered  from  keyboard 
CALL  UPAUSE 
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UPEN 


Draws  a  line  from  current  pen  position  to  given  coordinates 
CALL  UPEN  (X,Y) 


UPEN1 

UPIE 

UPLACE 

UPLOT 

UPLOT1 

UPLYGN 

UPOINT 

UPOST 

UPRINT 

UPRNT1 

UPSET 

UQUERY 

UREAD 


Sets  one  ‘USET’  option  for  this  call  only  before  executing  pen  movement 
CALL  UPEN1  (X,Y, OPTION) 

Draws  a  pie  chart  with  appropriate  numeric  and  alphameric  labels 

CALL  UPIE  (ARRAY, PTS, LABELS, SIZE) 

Applies  2-D  translation  image  transformation  to  'retained'  frames/seg¬ 
ments 

CALL  UPLACE  (X,Y,SEGNAM) 

General  purpose  multi-curve  plotting  routine 

CALL  UPLOT  (X,Y, CURVES, PARRAY, OPTION) 

Plots  a  single  curve 

CALL  UPLOT  1  (X,Y,PTS) 

Draws  a  regular  polygon 

CALL  UPLYGN  (X,Y,PTSIN, RADIUS) 

Defines  point  which,  together  with  two  end  points  of  a  given  line,  defines 
the  plane  for  the  terminator  and  tic  line 

CALL  UPOINT  (X,Y,Z) 

Insures  that  only  defined,  visible  frame/segments  are  displayed 
CALL  UPOST 

Prints  information  in  hardware  or  software  characters 
CALL  UPRINT  (X,Y, INPUT) 

Allows  alphanumeric  output  at  current  position  with  specified  option 
CALL  UPRNT1  (DATA, OPTION) 

Changes  setting  in  the  GSA  which  requires  a  parameter  value  to  be  set 
CALL  UPSET  (OPTION, VALUE) 

Obtains  current  value  of  specified  variable  in  GSA 
CALL  UQUERY  (OPTION, VALUE) 

Allows  alphanumeric  input  from  the  graphic  terminal 
CALL  UREAD  (X,Y, DATA, COUNT, FLAG) 
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URECT 

Draws  a  rectangle 

CALL  URECT  (X,Y) 

UREPRO 

Reproduce  contents  of  psuedo-display  file  on  current  display  device 

CALL  UREPRO  (FILENR,  STATUS) 

URESET 

Resets  GSA  variables  to  default  conditions 

CALL  URESET 

UROTAT 

Creates  a  user  coordinate  system  at  current  position  rotated  as  specified 

CALL  ROTAT  (ANGLE) 

USAREA 

Changes  device  boundaries  to  maintain  a  one  to  one  aspect  ratio  with  the 
current  window  boundaries 

CALL  USAREA 

USAVE 

Saves  all  the  variables  of  the  Graphics  Status  Area 

CALL  USAVE  (ARRAY) 

USAXIS 

Draws  a  single  axis  in  any  of  three  coordinates 

CALL  USAXIS  (AXIS,XSTART,YSTART,ZSTART,DIST) 

USCALE 

Creates  a  user  coordinate  system  at  current  position  with  specified  scale 

CALL  USCALE  (SX.SY) 

USCATR 

Draws  a  scatter  plot 

CALL  USCATR  (X.Y.PTS) 

USET 

Sets  a  graphics  status  area  variable  to  a  given  value 

CALL  USET  (OPTION) 

USHOW 

Causes  the  named  frame/segment  of  graphical  information  to  be  made 
visible 

USPLIN 

CALL  USHOW  (NAME) 

Fits  a  cubic  spline  interpolatory  curve  to  the  input  data 

CALL  USPLIN  (X,Y,PTS,RETX,RETY,RETPTS) 

USTART 

Initializes  the  graphics  status  area 

CALL  USTART 

USTRCT 

Defines  the  start  of  a  graphic  data  structure 

CALL  USTRCT  (NAME) 
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USTUD 

Returns  limits  of  two  dimensional  virtual  and  display  surfaces 

CALL  USTUD  (ARRAY) 

USVPN 

Saves  all  pen-related  variables  of  the  graphics  status  area 

CALL  USVPN  (ARRAY) 

USVTR 

Saves  coordinate  system  related  variables  in  the  graphics  status  area 

CALL  USVTR  (ARRAY) 

UTAXIS 

Draws  a  time  series  axis  with  appropriate  alphameric  and  numeric  labels 

CALL  UTAXIS  (BEGIN, PERIOD, YMIN.YMAX) 

UTERM 

Defines  the  end  of  a  graphic  data  structure 

CALL  UTERM  (NAME) 

UTILTY 

Performs  data  structure  utility  functions 

CALL  UTILTY  (OPTION, VALUE) 

UTSFIT 

Fits  an  exponentially  smoothed  curve  to  time  series  data 

CALL  UTSFIT  (ARRAY, POINTS, FCST, ALPHA) 

UVIEW 

Defines  position  of  viewer  m  relation  to  environment,  and  the  direction  of 
view. 

CALL  UVIEW  (XVIEW,YVIEW,ZVIEW,XSITE,YSITE,ZSITE) 

UVWPLN 

Defines  the  location  of  the  view  (projection)  plane 

CALL  UVWPLN  (DISTAN) 

UWAIT 

Waits  a  given  number  of  seconds 

CALL  UWAIT  (SECONDS) 

UWHERE 

Returns  the  coordinates  of  the  current  pen  position  in  user  units 

CALL  UWHERE  (X,Y) 

UWINDO 

Sets  the  virtual  window  boundaries 

CALL  UWINDO  (XMIN.XMAX, YMIN.YMAX) 

UWLOOK 

Adjusts  both  virtual  window,  and  user  display  area  to  cover  given  portion 
of  virtual  space 

CALL  UWLOOK  (XMIN.YMAX, YMIN.YMAX) 

UWRITE 

Prints  information,  then  restores  pen  to  location  on  input 

CALL  UWRITE  (X.Y.DATA) 
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UWRIT1 

UZWNDO 

U3AXIS 

U3CALL 

U3CSYS 

U3DRAW 

U3GRIN 

U3IMAG 

U3LINE 

U3MOVE 

U3PEN 

U3PEN1 

U3PLACE 

U3PLOT 


Allows  alphanumeric  output  at  current  position  under  one  option 
CALL  UWRIT1  (DATA, OPTION) 

Sets  the  hither/yon  window  boundaries  for  Z-clipping 
CALL  UZWNDO  (ZMIN.ZMAX) 

Creates  a  set  of  axes  in  3  space 
CALL  U3AXIS  (XMIN,XMAX,YMIN,YMAX, ZMIN.ZMAX) 

Invokes  an  existing  graphics  data  structure  in  3  space. 

CALL  U3CALL  (X,Y,Z,SX,SY,SZ,RX,RY,RZ,NAME) 

Creates  a  new  coordinate  system  in  3  space 

CALL  U3CSYS  (X,Y,Z,SX,SY,SZ,RX,RY,RZ) 

Draws  a  solid  line  in  3-D  space 

CALL  U3DRAW(X,Y,Z) 

Gets  3-D  coordinates  and  a  character  from  terminal  and  returns  them 
CALL  U3GRIN  (X.Y.Z.ICHAR) 

Applies  general  3-D  image  transformations  to  'retained'  frames/segments 
CALL  U3IMAG  (X.Y.Z.SX.SY.SZ.RX.RY.RZ.SEGNAM) 

Connects  3-D  arrays  of  points  (X,Y,Z)  with  current  line  option 
CALL  U3LINE  (X,Y,Z,PTS) 

Moves  pen  invisibly  in  3-D  space 

CALL  U3MOVE  (X,Y,Z) 

Draws  a  line  from  current  pen  position  to  given  3-D  coordinates 
CALL  U3PEN  (X.Y.Z) 

Sets  one  USET  option  for  this  call  only  before  executing  3-D  pen  move¬ 
ment 

CALL  U3PEN1  (X.Y.Z, OPTION) 

Applies  3-D  translation  image  transformation  to  ‘retained’  frames/seg¬ 
ments 

CALL  U3PLAC(X,Y,Z,SEGNAM) 

Draws  a  general  purpose  graph  in  3-D  space 

CALL  U3PLOT  (X,Y,Z, CURVES, PTS, OPTS) 
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U3PRNT 

U3R0TA 

U3SCAL 

U3STUD 

U3WHER 

U3WND0 

U3WRIT 


Displays  textual  data  at  pen  position  in  3-D  space 
CALL  U3PRNT  (X,Y,Z,DATA) 

Creats  a  user  coordinate  system  in  three  space  at  current  pen  position, 
rotated  as  specified 

CALL  U3ROTA  (RX,RY,RZ) 

Creates  a  user  coordinate  system  in  three  space  at  current  per  position, 
scaled  as  specified 

CALL  U3SCAL  (SX,SY,SZ) 

Gives  current  setting  of  the  3-D  user  display  area  and  windows 
CALL  U3STUD  (ARRAY) 

Returns  current  pen  position  in  current  units  in  3-D  space 
CALL  U3WHER  (X.Y.Z) 

Sets  the  virtual  3-D  window  boundaries 
CALL  U3WNDO  (XMIN,XMAX,YMIN,YMAX,ZMIN,ZMAX) 

Displays  textual  information  in  3-D  space,  returns  pen  to  original  position 
CALL  U3WRIT  (X,Y,Z,DATA) 
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APPENDIX  B 


USET  OPTIONS 

TABLE  1 

USET  OPTIONS  MOST  FREQUENTLY  USED 

TO  REQUEST  ABSOLUTE  COORDINATE  PLOTTING  (DEFAULT): 

USET  (‘ABSOLUTE’)  USET  (‘ABSO’) 

USET  CABSb’) 

TO  REQUEST  RELATIVE  OR  INCREMENTAL  COORDINATE  PLOTTING: 
USET  (‘RELATIVE’)  USET  (‘RELA’) 

TO  REQUEST  RECTANGULAR  COORDINATES  (DEFAULT): 

USET  (‘RECTANGULAR’)  USET  (‘RECT’) 

TO  REQUEST  POLAR  COORDINATES: 

USET  (‘POLAR’)  USET  (‘POLA’) 

TO  REQUEST  ANGULAR  VALUES  IN  DEGREES  (DEFAULT): 

USET  ('DEGREES’)  USET  (‘DEGR’) 

TO  REQUEST  ANGULAR  VALUES  IN  RADIANS: 

USET  (‘RADIANS’)  USET  (‘RADI’) 

TO  REQUEST  PLOTTING  IN  VIRTUAL  SPACE  (DEFAULT): 

USET  (‘VIRTUAL’)  USET  (‘VIRT’) 

TO  REQUEST  PLOTTING  IN  DEVICE  SPACE. 

USET  (‘DEVICE’)  USET  (‘DEVI’) 

TO  REQUEST  DEVICE  SPACE  PLOTTING  UNITS  IN  INCHES  (DEFAULT): 
USET  (‘INCHES’)  USET  (‘INCH’) 

TO  REQUEST  DEVICE  SPACE  PLOTTING  IN  RASTER  UNITS: 

USET  CRASTERUNITS’)  USET  CRAST’) 
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TO  REQUEST  DEVICE  SPACE  PLOTTING  IN  FONT  (CHARACTER  SPACE)  UNITS: 
USET  ('FONTUNITS')  USET  (‘FONT’) 

TO  REQUEST  DEVICE  SPACE  PLOTTING  IN  PERCENT  UNITS: 

USET  (‘PERCENTU NITS')  USET  ('PERC') 

TO  REQUEST  PLOTTING  OF  A  VISIBLE  LINE  (DEFAULT): 

USET  (‘LINE’) 

TO  REQUEST  PLOTTING  OF  INVISIBLE  LINES. 

USET  (‘MOVE’) 

USET  CNOLINE’)  USET  ('NOLI') 

USET  (‘NObLINE’)  USET  ('NObL') 

TO  REQUEST  PLOTTING  OF  LINES  WITH  ARROW  TERMINATORS: 

USET  ('ARROW')  USET  CARRO’) 

TO  REQUEST  PLOTTING  OF  DASHED  LINES: 

USET  (‘DASH’) 

TO  REQUEST  PLOTTING  OF  TIC  LINES: 

USET  CTICLINE’)  USET  CTICL’) 

TO  REQUEST  PLOTTING  OF  LINES  WITH  ONLY  ENDPOINTS  VISIBLE' 

USET  ('POINT')  USET  (‘POIN’) 


TO  REQUEST  PLOTTING  OF  LINES  COMPOSED  OF  CHARACTERS: 

USET  (‘ALPHA NUMERICLINES')  USET  ('ALPH') 

TO  REQUEST  PLOTTING  OF  INVISIBLE  LINES  WITH  CHARACTERS  AT  THEIR  END¬ 
POINTS. 

USET  ('CHARACTER')  USET  (‘CHAR’) 


TO  REQUEST  CHARACTER  OUTPUT  IN  THE  FORM  OF 
(DEFAULT): 


HARDWARE  CHARACTERS 


USET  (‘HARDWARE’)  USET  (‘HARD’) 
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TO  REQUEST  CHARACTER  OUTPUT  IN  THE  FORM  OF  SOFTWARE  CHARACTERS 
USET  (‘SOFTWARE’)  USET  (‘SOFT’) 

TO  REQUEST  UPRINT/UWRITE  OUTPUT  IN  TEXT  FORMAT  (DEFAULT): 

USET  (‘TEXT’) 

TO  REQUEST  UPRINT/UWRITE  OUTPUT  IN  INTEGER  FORMAT: 

USET  (‘INTEGER’)  USET  CINTE') 

TO  REQUEST  UPRINT/UWRITE  OUTPUT  IN  REAL  FORMAT: 

USET  (‘REALNUMBER’)  USET  (‘REAL’) 

TO  REQUEST  PLOTTING  WITH  RESPECT  TO  THE  SYSTEM  AXIS  (DEFAULT): 
USET  (‘SYSTEM’)  USET  (‘SYST’) 


TO  REQUEST  PLOTTING  WITH  RESPECT  TO  THE  USER  AXIS: 
USET  (‘USERAXIS’)  USET  (‘USER’) 


TO  REQUEST  A  LINE  TYPE/CHARACTER  TERMINATOR  COMBINATION: 
USET  (‘X$bb’)  USET  (‘X$’) 


Where 


AND 


$  IS  THE  DESIRED  CHARACTER  TERMINATOR 
X,  THE  LINE  TYPE  SPECIFICATION,  IS  AS  FOLLOWS: 


A 

D 

L 

N 

T 

b 


ALPHANUMERIC  LINE 
DASHED  LINE 
SOLID  LINE 

NULL  OR  INVISIBLE  LINE 
TIC  LINE 
denotes  blank 
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TABLE  2 


USET  OPTIONS  BY  ALPHABETICAL  ORDER: 
(Default  Options  are  in  Bold  Type) 


Option  Name 

To  Request 

‘AARROW’ 

Alphanumeric  lines  with  arrow  terminators 

‘ABACKARROW’ 

Alphanumeric  lines  with  back  arrow  terminators 

‘ABEND' 

3D,* 

To  halt  execution  when  error  count  exceeds  cer¬ 
tain  limit 

‘ABORT’ 

3D 

To  halt  execution  when  error  count  exceeds  cer¬ 
tain  limit 

‘ABSb’ 

Plotting  in  an  absolute  coordinate  system 

ABSOLUTE’ 

Plotting  in  an  absolute  coordinate  system 

ABUTTING' 

Abutting  of  display  surface  pages 

‘ACENTER’ 

To  center  character  output  about  given  location 

‘ACHARACTER’ 

Alphanumeric  lines  with  character  terminators 

‘ACOORDINATE’ 

Alphanumeric  lines  with  ending  coordinates  indi¬ 
cated 

‘ADDITIVE’ 

* 

Additive  color  blending  mode 

ADOUBLEARROW’ 

Alphanumeric  lines  with  arrowhead  terminators 

‘ALLDISPLAYS’ 

Routing  of  graphical  output  to  all  devices 

‘ALPHANUMERIC’ 

Alphanumeric  lines  with  no  terminators 

‘ALTERNATEDISPLAY’ 

Routing  of  graphical  output  to  first  alternate 
device 

'ANNUAL' 

Time  series  axis  scale  in  yearly  intervals 

‘ANULL’ 

Alphanumeric  lines  with  no  terminators 

‘APOINT 

Alphanumeric  lines  with  point  terminators 

‘ARROWLINE’ 

Solid  lines  with  arrow  terminators 

‘ASYMBOL’ 

Alphanumeric  lines  with  character  terminators 

‘AUTOSCALE’ 

Automatic  scaling  for  higher  level  graphing 

‘BACKARROWLINE’ 

Solid  lines  with  back  arrow  terminators 

‘BALL’ 

Track  ball  graphical  input 

‘BLACK’ 

Background  color  to  be  black 

‘BBLUE’ 

Background  color  to  be  blue 

‘BCYAN’ 

Background  color  to  be  cyan 

‘BESTFORMAT’ 

Numeric  label  output  in  best  possible  format 

‘BIHOURLY’ 

Time  series  axis  scale  in  two  hour  intervals 

‘BLACK’ 

Switch  to  pen  color  black 

‘BLUE’ 

Switch  to  pen  color  blue 

‘BMAGENTA’ 

Background  color  to  be  magenta 

‘BRED’ 

Background  color  to  be  red 

‘BRIGHT’ 

Highest  possible  intensity  for  output 

‘BUILD’ 

3D 

Structure  building 

'BWHITE' 

Background  color  to  be  white 

‘BYELLOW’ 

Background  color  to  be  yellow 

CENTIMETERS’ 

Device  space  coordinates  are  in  centimeters 

‘CHARACTER’ 

Null  or  invisible  lines  with  character  terminators 

‘C  JUSTIFICATION' 

Alphanumeric  center  justification 

‘COMPRESSED’* 

3D 

Data  structure  editing  option 

CONTINUOUS’ 

Curved  lines  be  interpreted  as  one  pen  operation 

'COORDINATES’ 

UPRINT/UWRITE  output  in  (X,Y)  coordinate  format 

‘CURSOR’ 

Graphic  cursor  as  graphic  input  device 

‘CWINDOWING’ 

3D 

Circular  windowing 

‘CYAN’ 

Switch  to  pen  color  cyan 

‘CYLINDRICAL’ 

Coordinates  are  to  be  of  the  form  (R,THETA,Z), 

NOTE:  b  -  is  a  blank  or  space 

*  -  means  not  implemented 
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where  R  is  the  number  of  units  of  radius  in  the  X,Y 
plane,  THETA  is  the  number  of  angular  units 
around  the  Y  axis,  and  2  is  the  number  of  units 
along  the  Z  axis 


‘DAILY’ 

Time  series  axis  scale  in  daily  intervals 

‘DARROW’ 

Dashed  lines  with  arrow  terminators 

‘DASH’ 

Dashed  lines  with  null  terminations 

‘DATE’ 

Time  series  axis  scale  in  date  series  interval 

‘DBACKARROW’ 

Dashed  lines  with  arrow  terminators 

‘DCHARACTER’ 

Dashed  lines  with  character  terminators 

‘DCOORDINATES’ 

Dashed  lines  with  endpoint  coordinates  indicated 

‘DDOUBLEARROW’ 

Dashed  lines  with  double  arrow  terminators 

‘DEFERRED’ 

* 

Deferred  error  output  until  UEND  is  called 

‘DEGREES’ 

Angular  information  be  interpreted  in  degrees 

‘DESENSITIZE’ 

1 

Disabling  of  pick  sensitivity 

‘DETECTABLE’ 

Enabling  of  pick  sensitivity 

‘DEVICE’ 

Plotting  in  device  space 

‘DIGITIZER’ 

Digitizer  is  graphics  input  device 

‘DIMb’ 

Lowest  possible  intensity  for  output 

‘DIMENSIONLINE’ 

Solid  lines  with  arrow  terminators 

‘DISPLAY’ 

Plotting  in  device  space 

‘DNULL’ 

Dashed  lines  with  no  terminators 

‘DOUBLEARROW’ 

Solid  lines  with  double  arrow  terminators 

‘DPOINT’ 

Dashed  lines  with  point  terminators 

‘DSYMBOL’ 

Dashed  lines  with  character  terminators 

DUMP’ 

To  select  dump  option 

‘ECHO’* 

1 

Echo  alphanumeric  input  option 

EDGEAXIS’ 

X  and  Y  axis  labels  at  edge  of  graph 

‘ERROROUTPUT’ 

Immediate  error  output 

‘EXECUTE’ 

3D 

Execution  of  data  structure  commands  as  they  are 
built 

‘EXPANDED’* 

3D 

Data  structure  editing  option 

‘EXTENDEDMENU’* 

l,3D 

Extended  menuing  option 

‘EXTRALARGE’ 

Extra  large  character  size 

‘FAST’ 

Fast  blink  rate 

‘FITLINEAR’ 

Fit  linear  function  to  plotted  lines 

'FITPOLYNOMIAL' 

Fit  least  squares  polynomial  to  plotted  points 

‘FITSPLINE’ 

Fit  cubic  spline  curve  to  plotted  points 

‘FNUMBERMODE’ 

Frame  identifiers  provided  as  numbers 

‘FONTUNITS’ 

To  indicate  device  space  plotting  in  font  units 

‘FULLSCALE’ 

Full  scaling  for  higher  level  graphing 

‘FUNCTIONKEYS’ 

Function  key  is  graphics  input  device 

‘GAPPED’ 

Alternate  light  and  dark  line  output 

‘GFORMAT’ 

Numeric  label  output  in  FORTRAN  real  (E  or  F)  for¬ 
mat 

‘GOTHIC’ 

Gothic  character  font  (standard  GCS  font) 

‘GRADS’ 

3D 

Angular  units  to  be  measured  in  grads 

‘GREEN’ 

Switch  to  pen  color  green 

‘GRIDAXIS’ 

Grid  axes  for  higher  level  graphing 

‘HARDWAREFONT’ 

Output  of  hardware  generated  characters 

‘HIGHLIGHTED’ 

Highlighted  segments 

‘HITHER/YONbCLIPPING’ 

Z  axis  clipping 

‘HORIZONTAL’ 

3D 

Alphanumeric  output  to  be  printed  horizontally 

‘HOURLY’ 

Time  series  axis  scale  in  twenty-four  hourly  inter¬ 
vals 

‘IFORMAT’ 

Numeric  label  output  in  integer  format 

‘IGNORE’ 

3D 

Ignore  duplicate  studies  on  merge  file 

NOTE:  b  -  is  a  blank  or  space 

*  -  means  not  implemented 
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‘INCHES’ 

‘INCREMENTAL’ 

‘INTEGER’ 

‘INVISIBLE’ 

‘ITALICS’ 

‘JOYSTICK’ 

‘KEYBOARD’ 

‘LARGE’ 

‘LARROW’ 

‘LBACKARROW’ 

‘LCHARACTER’ 

‘LCOORDINATES’ 

'LDOUBLEARROW 

’LEFT’ 

‘LETTER’ 

'LIGHTPEN' 

LINE’ 

LJUSTIFICATION’ 

‘LNULL’ 

‘LOGARITHMIC’ 

‘LOGOBJECT’ 


‘LOGORIGINALUNITS’ 

‘LOGSYSTEM’ 


'LOGUSER' 


‘LOGXAXIS’ 

‘LOGYAXIS’ 

‘LOWERCASE’ 

‘LPOINT’ 

‘LSYMBOL’ 

‘MAGENTA’ 

‘MEDIUM’ 

‘MESSAGEDEVICE’ 

‘MILS’ 

‘MINUTELY’ 

‘MONTHLY’ 

‘MOUSE’ 

‘MOVE’ 

‘MULTIPLE’ 

‘NARROW’ 

‘NBACKARROW’ 

’NCHARACTER’ 

‘NCOORDINATES’ 

'NDOU  BLEAR  ROW’ 

‘NEGATIVESIDE’ 

‘NEWSCALE’ 

‘NNULL’ 


Device  space  coordinates  in  inches 
Plotting  in  an  incremental  coordinate  system 
UPRINT/UWRITE  output  in  integer  format 
Invisible  construction  of  frames  and  segments 
Italic  character  format 
I  Joystick  as  graphic  input  device 

I  Keyboard  as  (pseudo)  graphic  input  device 

Large  character  size 
Solid  lines  with  arrow  terminators 
Solid  lines  with  back  arrow  terminators 
Solid  lines  with  character  terminators 
Solid  lines  with  endpoint  coordinates  indicated 
Solid  lines  with  double  arrow  terminators 
3D  Left  handed  coordinate  system 

UPRINT/UWRITE  output  in  text  format 
I  Light  pen  as  graphic  input  device 

Solid  lines  with  null  terminators 
Left  justification  of  alphanumeric  strings 
Solid  lines  with  null  terminators 
Applies  logarithmic  transforms  to  all  components 
3D  Logarithmic  transforms  are  to  be  applied  before 
any  other  transformations.  (In  this  mode,  log 
transforms  may  be  applied  to  angle  or  radius  com¬ 
ponents  of  CYLINDRICAL’,  ‘POLAR’,  or  ‘SPHERI¬ 
CAL’  coordinates) 

Application  of  log  scaling  before  conversion  to 
rectangular 

3D  Logarithmic  to  be  applied  after  conversion  to 
‘SYSTEM’  coordinates  (in  this  mode,  the 
logarithmic  coordinate  system  axes.) 

3D  Logarithmic  transforms  are  to  be  applied  after 
conversion  to  ‘ABSOLUTE’.  ‘RECTANGULAR’, 
‘USER’  coordinates  but  before  conversion  to 
’SYSTEM’  coordinates.  (In  this  mode,  the 
logarithmic  scaling  will  be  applied  along  the  cur¬ 
rent  ‘USER’  coordinate  system  axes.) 

Base  ten  log  X  axis  drawing 
Base  ten  log  Y  axis  drawing 
Lower  case  to  be  ‘TEXT’  case 
Solid  lines  with  point  terminators 
Solid  lines  with  character  terminators 
Switch  to  pen  color  magenta 
Medium  hardware  character  size 
Alphanumeric  I/O  routed  to  a  message  device 
3D  Angular  units  to  be  measured  in  mils 

Time  series  axis  scale  in  minute  intervals 
Time  series  axis  scale  in  monthly  intervals 
I  Analog  mouse  as  graphic  input  device 

Invisible  lines  with  null  terminators 
3D  Multiple  data  structure  invocation 

Invisible  lines  with  arrow  terminators 
Invisible  lines  with  back  arrow  terminators 
Invisible  lines  with  character  terminators 
Invisible  lines  with  double  arrow  terminators 
Invisible  lines  with  double  arrow  terminators 
3D  Labels  will  be  to  the  left  or  below  the  axes 
New  scale  for  higher  level  graphing 
Invisible  lines  with  null  terminators 


NOTE:  b  -  is  a  blank  or  space 

*  -  means  not  implemented 
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‘NObLINE’ 

‘NOABORT’ 

3D 

Invisible  lines  with  null  terminators 

Do  not  terminate  if  error  count  exceeds  specified 

‘NOAXES’ 

‘NOBLINK’ 

‘NOBUILD’ 

3D 

limit 

No  axes  be  drawn  for  higher  level  graphing 

No  blinking  to  occur 

No  structure  building 

‘NOCENTER’ 

‘NODUMP’ 

3D 

Text  output  starts  at  given  point 

No  dump  performed 

‘NOECHO’ 

l,3D 

No  echoing  of  alphanumeric  input 

‘NOEXECUTE’ 

3D 

No  execution  of  data  structure  commands  as  they 

‘NOFIT’ 

‘NOHIGHLIGHTING’ 

‘NOITALICS’ 

‘NOLINE’ 

‘NOLOGARITHMS’ 

3D 

are  built 

No  curve  fitting  for  higher  level  graphics 

No  segment  highlighting 

No  slanting  of  software  characters 

Invisible  lines  with  null  terminators 

No  logorithmic  transform  application 

‘NONUNIFORM’ 

3D 

High  level  plotting  option 

‘NOMARK’ 

‘NONABUTTING’ 

‘NONRETAINEDSEGMENTS’ 

‘NONUNIFORM’ 

‘NOORIGIN’ 

3D 

Invisible  marks  with  null  terminators 

No  abutting  of  display  surface  pages 

Create  segments  in  non-retained  form 

Nonuniform  scaling  of  higher  level  grading 

No  origin  to  be  forced  for  ‘AUTOSCALE’  or 

‘NOREPEAT’ 

3D 

‘FULLSCALE’  scaling  options 

No  coordinate  repeating  for  high  level  plotting 

‘NOREWIND’ 

‘NORMALINTENSITY’ 

‘NOSCRIPT’ 

3D 

No  rewind  of  structure  save  files 

Normal  intensity  for  output 

To  disable  any  superscripting  or  subscripting  of 

‘NOSIGNIFICANTZEROES’ 

‘NOSUPERSCRIPT’ 

3D 

text  output 

Suppression  of  display  of  significant  zeros 

Same  as  ‘NOSCRIPTING’ 

‘NOTRAIL’ 

3D 

Record  of  which  GCS  routines  are  invoked  is  not 

‘NOWINDOWING’ 

3D 

listed 

Disable  GCS  windowing  routine 

‘NOXLABEL’ 

‘NOXREPEAT’ 

3D 

No  labels  are  to  be  drawn  for  graphing 

To  indicate  that  a  component  is  provided  for  every 

‘NOYLABEL’ 

‘NOYREPEAT’ 

3D 

X  value  in  every  curve  in  higher  level  graphing 

No  Y  labeling  for  graphing 

To  indicate  that  a  component  is  provided  for  every 

NOZCLIPPING’ 

‘NOZLABELS’ 

3D 

Y  value  in  every  curve  in  higher  level  graphing 

No  hither/yon  clipping 

To  indicate  that  no  Z  labels  are  to  be  drawn  for 

‘NOZREPEAT’ 

3D 

higher  level  graphing 

To  indicate  that  a  component  is  provided  for  every 

‘NObLINE' 

‘NObMARK’ 

‘NPOINT’ 

‘NSYMBOL’ 

‘OLDSCALE’ 

‘ORIGIN’ 

3D 

Z  value  in  every  curve  in  higher  level  graphing 
Invisible  line  with  null  terminator 

Line  type 

Invisible  lines  with  point  terminators 

Invisible  lines  with  character  terminators 

Old  scale  to  be  used  for  higher  level  graphing 

An  origin  to  be  forced  for  ‘AUTOSCALE’  and 

‘ORTHOGRAPHIC’ 

3D 

‘FULLSCALE’  scaling  options 

To  specify  orthographic  projection  in  which  the 

‘OWNSCALE’ 

‘PARALLELLABELS’ 

3D 

projection  is  parallel  from  all  points 

Own  scale  option  for  higher  level  graphing 

To  specify  that  the  main  axis  of  the  numeric  labels 

‘PENAXIS’ 

will  be  parallel  to  the  axis 

Axis  intersection  at  current  position  for  graphing 

NOTE:  b  -  is  a  blank  or  space 

*  -  means  not  implemented 
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‘PENDOWN’ 

Solid  lines  with  null  terminators 

‘PENORIGIN’ 

3D 

To  force  the  current  pen  position  to  be  included  in 
the  axis  range 

‘PENUP’ 

Invisible  lines  with  null  terminators 

‘PERIODIC’ 

Time  series  axis  scale  in  accounting  period  inter¬ 
vals 

‘PERCENTUNITS’ 

Device  space  coordinates  specified  in  percent 
units 

‘PERPENDICULARLABELS’ 

3D 

To  specify  that  the  major  axis  the  numeric  labels 
will  be  perpendicular  to  the  axis 

‘PERSPECTIVE’ 

3D 

To  specify  perspective  projection  in  which  line 
length  diminishes  as  the  distances  from  the  view¬ 
ing  position  become  greater 

‘PIRADIANS’ 

3D 

Angular  information  be  interpreted  in  Pi  radians 

‘PLAINAXIS’ 

Plain  axes  to  be  drawn  for  high  level  graphing 

‘PLOTDEVICE’ 

Alphanumeric  I/O  to  be  directed  to  the  plotting 
device 

‘POINT’ 

Invisible  lines  with  point  terminators 

‘POLAR’ 

Plotting  in  polar  (RHO,  THETA)  units 

‘POSITIVESIDE’ 

3D 

Labels  will  be  above  or  to  the  right  of  the  axis 

‘PRIMARYDEVICE’ 

Routing  of  graphical  output  to  primary  graphics 
device 

‘QUARTERLY’ 

Time  series  axis  scale  in  quarter  year  intervals 

'RADIANS’ 

Angular  information  be  interpreted  in  radians 

‘RASTERUNITS’ 

To  indicate  device  space  coordinates  are 
specified  as  is  in  raster  units 

‘REAL’ 

UPRINT/UWRITE  output  in  real  number  format 

‘RECTANGULAR’ 

Plotting  on  the  user's  reference  axis 

‘REDb’ 

Switch  to  pen  color  red 

‘REFERENCE’ 

Plotting  on  the  user’s  reference  axis 

‘REFRESHEDSEGMENT’ 

Segments  to  be  retained 

‘RELb’ 

Plotting  in  a  relative  coordinate  system 

‘RELATIVE’ 

Plotting  in  a  relative  coordinate  system 

‘REPLACE’ 

3D 

Data  structure  building  option 

‘RETAINEDSEGMENTS’ 

Segments  to  be  retained  structures  from  merge 
file 

‘REWIND’ 

3D 

Data  structure  file  handling  command 

‘RIGHTHAND’ 

3D 

Right  handed  coordinate  system 

‘R  JUSTIFICATION' 

Right  justification  of  alphanumeric  character 
string 

‘RWINDOWING’ 

3D 

Rectangular  windowing 

‘SECONDLY’ 

Time  series  axis  scale  in  second  intervals 

‘SECRET’ 

Security  classification  secret 

‘SEGMENTED’ 

Curved  lines  be  interpreted  as  multiple  pen  opera¬ 
tions 

‘SEMIANNUAL’ 

Time  series  axis  scale  in  semi  annual  intervals 

‘SENSITIZE’ 

3D 

Make  graphic  segments  visible 

‘SIGNIFICANTZEROES’ 

Display  of  significant  zero 

'SIMULATED  HARDWARE 
CHARACTERS’ 

Output  of  simulated  hardware  characters 

‘SINGLE’ 

3D 

Data  structure  invocation  option 

‘SITEPOINT’ 

3D 

Viewpoint  distance  to  be  measured  from  the  view 
site 

‘SLOWBLINK’ 

Slow  blink  rate 

SMALL’ 

Use  smallest  hardware  character  size 

‘SOFTWAREFONT’ 

Output  of  software  generated  characters 

SONICPEN’ 

1 

Sonic  pen  is  graphics  input  device 

‘SPECIFIC’ 

NOTE:  b  -  is  a  blank  or  space 

*  -  means  not  implemented 

To  specify  particular  device  units  instead  of  per¬ 
cent  units 
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‘SPHERICAL’ 


‘STANDARDMENU’  1, 3D 

‘SUBSCRIPT’  3D 

‘SUPERSCRIPT’  3D 

‘SUPPRESSERRORS’ 

‘SYMBOL’ 

‘SYSTEMAXIS’ 

‘TABLET’  I 

‘TARROW’ 

‘TBACKARROW’ 

‘TCHARACTER’ 

‘TCOORDI  NATES’ 
‘TDOUBLEARROW’ 

‘TEXT’ 

‘SUBTRACTIVE’* * 

‘TICAXES’ 

‘TICLINE’ 

‘TNULL’ 

‘THINLINES’ 

'TOPSECRET’ 

‘TPOINT’ 

‘TRAIL’  3D 

‘TSYMBOL’ 

‘TWELVEHOUR’ 

‘TWENTYFOURHOUR’ 

‘UNCLASSIFIED' 

‘UNDETECTABLE’ 

‘UNIFORM’*  3D 

‘UNINTERRUPTED’ 

‘UPPERCASE’ 

‘USER’ 

‘VERTICAL’  3D 

‘VIEWPOINT’  3D 

‘VIRTUAL’ 

‘VISIBLE’ 

‘WEEKLY’ 

‘WHITE’ 

'WIDELINES' 

‘WORKINGAXIS’ 

‘WORLDCOORDINATESYSTEM’ 

‘XABSOLUTE’  3D 


‘X  ALPHANUMERIC’ 
‘XAXIS’ 

‘XBOTHLABELS’ 


Coordinates  are  of  the  form  (R, THETA, PHI)  where 
R  is  the  number  of  units  of  radius,  THETA  is  the 
number  of  angular  units  around  the  Z  axis,  and  PHI 
is  the  number  of  angular  units  around  the  X  axis 
Menuing  option 

To  specify  that  the  output  will  be  lowered  from  the 
specified  line  of  text 

To  specify  that  the  output  will  be  raised  from  the 
specified  line  of  text. 

Error  output  be  suppressed 

Invisible  lines  with  character  terminators 

Plotting  on  the  system  axis 

Analog  tablet  as  graphic  input  device 

Tic  lines  with  arrow  terminators 

Tic  lines  with  back  arrow  terminators 

Tic  lines  with  character  terminators 

Tic  lines  with  endpoint  coordinates  indicated 

Tic  lines  with  double  arrow  terminators 

UPRINT/UWRITE  outout  in  text  format 

Subtractive  color  blending  mode 

Tic  axes  to  be  drawn  for  higher  level  graphing 

Tic  lines  with  null  terminators 

Tic  lines  with  null  terminators 

Line  width  to  be  thin 

Security  Classification  Top  Secret 

Tic  lines  with  point  terminators 

To  indicate  by  an  identification  number  which 

GCS  routine  is  involved. 

Tic  lines  with  character  terminators 
Time  series  axis  scale  in  twelve  hour  intervals 
Time  series  axis  scale  in  twenty  four-hour  inter¬ 
vals 

Security  classification  unclassified 

Disabling  pick  sensitivity 

High  level  graphing  system 

Non-gapped  line  output 

Upper  case  to  be  ‘TEXT’  case 

Plotting  on  a  user  defined  axis  system 

Alphanumeric  output  to  be  spaced  vertically 

View  port  distance  to  be  measured  from  the  view 

point 

Plotting  in  virtual  space 

Visible  framed  output 

Time  series  axis  scale  in  weekly  intervals 

Switch  to  pen  color  white 

Line  width  to  be  wide 

Plotting  on  the  user’s  working  (temporary  axis) 
Coordinate  system  to  be  the  default  axis  system 
To  specify  the  X  coordinates  with  respect  to  the 
origin  of  the  current  coordinate  system  for  indi¬ 
cated  components.  Y  and  Z  components  are  to  be 
specified  with  respect  to  the  current  beam/pen 
position 

The  X  axis  will  have  an  alphanumeric  label 
The  X  axis  be  drawn  for  high  level  graphing 
The  X  axis  will  have  both  alphanumeric  and 
numeric  labels 


NOTE:  b  -  is  a  blank  or  space 

*  -  means  not  implemented 
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‘XCONSTANT’ 


‘XEDGEYZEROAXIS’ 

‘XLOGARITHMIC’ 

‘XNEGATIVE’ 

‘XNUMERIC’ 

‘XPOSITIVE’ 

‘XRELATIVE’ 


‘XREPEAT’ 


‘XYAXES’ 

‘XYABSOLUTE’ 


‘XYCOORDI  NATES’ 

‘XYLOGARITHMIC’ 

‘XYPLANE’ 

‘XYRELATIVE’ 


‘XYVIEW’ 

‘XYZAXES’ 

‘XYZCOORDI  NATES' 
‘XYZLOG’ 

XYZVIEW’ 

‘XYZb’ 

‘XYCOORDINATES’ 

‘XZABSOLUTE’ 


‘XZAXES’ 

‘XZEROYEDGEAXIS’ 

‘XZLOGARITHMIC’ 

‘XZPLANE’ 

‘XZRELATIVE’ 


‘XZVIEW 

'XZYb' 


3D  To  indicate  that  the  X  component  does  not  vary 
during  the  drawing  of  any  curve  in  higher  level 
graphics 

The  X  axis  at  edge  of  graph 
Logarithmic  X  and  linear  Y  plotting 
3D  Negative  X  axis  represents  up  in  3D  graphics 
An  X  axis  numeric  label 

3D  Positive  X  axis  represents  up  in  3D  graphics 
3D  To  specify  the  X  coordinates  with  respect  to  the 
current  beam/pen  position.  Y  and  Z  components 
are  to  be  specified  with  respect  to  the  origin  of  the 
current  coordinate  system 

3D  To  indicate  that  one  set  of  X  valves  is  provided 
which  will  be  reused  for  every  curve  in  higher  level 
graphing 

The  X  and  Y  axes  be  drawn  for  high  level  graphing 
3D  To  specify  the  X  and  Y  coordinates  with  respect  to 
the  origin  of  the  current  coordinate  system  for  the 
indicated  components.  Z  components  are  to  be 
specified  with  respect  to  the  current  beam/pen 
position 

To  specify  that  the  data  printed  by  UPRINT/ 
UWRITE  is  in  the  form  of  an  (X,Y)  coordinate  pair. 
3D  Logarthmic  X  and  Y  plotting,  linear  Z  plotting 

3D  Labels  are  to  be  drawn  in  the  plane  formed  by  the 

X  and  Y  axes 

3D  To  specify  the  X  and  Y  components  with  respect  to 
the  current  beam/pen  position  Z  components  are 
to  be  specified  with  respect  to  the  origin  of  the  cur¬ 
rent  coordinate  system 

3D  To  view  plane  formed  by  X  and  Y  axes 
3D  All  three  axes  are  to  be  drawn  for  higher  level 
graphing 

3D  Text  printed  by  U3PRNT/U3WRIT  to  be  in  form  of 
(X,Y,Z)  triplet 

3D  Applies  logamithmic  transforms  to  all  three  com¬ 
ponents 

3D  To  view  all  three  axes 

3D  To  set  the  rotation  application  order  as  indicated 
UPRINT/UWRITE  output  in  (X,Y)  coordinate  format 
3D  To  specify  the  X  and  Z  coordinates  with  respect  to 
the  origin  of  the  current  coordinate  system  for  the 
indicated  components  Y  components  are  to  be 
specified  with  respect  to  the  current  beam  posi¬ 
tion 

3D  The  X  and  Z  axes  are  to  be  drawn  for  higher  level 
graphing 

The  X  axis  adjacent  to  boundary  of  display  area 
3D  Applies  Logarithmic  transformation  to  X  and  Z 
components 

3D  Label  plane  to  be  plane  formed  by  X  and  Z  axis 
3D  To  specify  the  X  and  Z  components  with  respect  to 
the  current  beam/pen  position  Z  components  are 
to  be  specified  with  respect  to  the  origin  of  the  cur¬ 
rent  coordinate  system 

3D  To  view  the  plane  formed  by  the  X  and  Z  axes 
3D  To  set  the  rotation  application  order  as  indicated 


NOTE:  b  -  is  a  blank  or  space 

*  -  means  not  implemented 
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‘YABSOLUTE’ 

3D 

Y  coordinates  are  specified  with  respect  to  the 
origin  of  the  current  coordinate  system  for  the 
indicated  units.  X  and  Z  components  are  specified 
with  respect  to  the  current  beam/pen  position 

‘YALPHANUMERIC’ 

Y  axis  alphabetic  label 

TAXIS’ 

The  Y  axis  to  be  drawn  for  high  level  graphing 

‘YBOTHLABELS’ 

Y  axis  having  alphabetic  and  numeric  labels 

‘YCONSTANT’ 

3D 

To  indicate  that  the  Y  component  does  not  vary 
during  .the  drawing  of  any  curve 

‘YEARLY’ 

Time  series  axis  scale  in  yearly  intervals 

‘YEDGEXZEROAXIS’ 

The  Y  axis  at  edge  of  graph 

‘YELLOW’ 

Switch  to  pen  color  yellow 

‘YLOGARITHMIC’ 

Logarithmic  Y  plotting 

‘YNEGATIVE’ 

3D 

Negative  Y  direction  represents  up  in  3D  graphics 

‘YNUMERIC’ 

Y  axis  numeric  label 

‘YPOSITIVE’ 

3D 

Positive  Y  direction  represents  up  in  3D  graphics 

‘YRELATIVE’ 

3D 

Y  coordinates  are  specified  with  respect  to  the 
current  beam/pen  position  for  the  indicated  com¬ 
ponents  X  and  Z  components  are  to  be  specified 
with  respect  to  the  origin  of  the  current  coordinate 
system 

‘YREPEAT’ 

3D 

To  indicate  that  one  set  of  Y  valves  is  provided 
which  will  be  reused  for  every  curve  in  higher  level 
graphing 

‘YXZb’ 

3D 

To  set  the  rotation  application  order  as  indicated 

‘YZABSOLUTE’ 

3D 

Y  and  Z  coordinates  are  specified  with  respect  to 
the  origin  of  the  current  coordinate  system  for  the 
indicated  under  X  components  are  specified  with 
respect  to  the  current  beam/pen  position 

‘YZAXES’ 

3D 

The  Y  and  Z  axes  to  be  drawn  for  higher  level 
graphing 

‘YZPLANE’ 

3D 

Label  plane  to  be  plane  formed  by  Y  and  Z  axes 

‘YZEROXEDGEAXIS’ 

The  Y  axis  adjacent  to  boundary  of  display  area 

‘YZLOGARITHMIC’ 

3D 

Applies  logarithmic  transformations  to  Y  and  Z 
components 

‘YZRELATIVE’ 

3D 

Y  and  Z  coordinates  to  be  specified  with  respect  to 
the  current  beam/pen  position  for  the  Y  and  Z 
components,  and  the  X  component  to  be  specified 
with  respect  to  the  current  beam/pen  position  for 
the  Y  and  Z  components,  and  the  X  component  to 
be  specified  with  resoect  to  the  origin  of  the  cur¬ 
rent  coordinate  system 

‘YZVIEW’ 

3D 

To  view  the  plane  formed  by  the  Y  and  Z  axes 

‘YZXb’ 

3D 

To  set  the  rotation  application  order  as  specified 

‘ZABSOLUTE’ 

3D 

Z  coordinates  to  be  specified  with  respect  to  the 
origin  of  the  current  coordinate  system  for  the 
indicated  component.  X  and  Y  components  are  to 
be  specified  with  respect  to  the  current  beam/pen 
position 

‘ZALPHANUMERIC’ 

3D 

Alphanumeric  labels  to  be  drawn  for  higher  level 
drawing 

‘ZAXIS’ 

3D 

Z  axis  is  to  be  drawn  for  higher  level  graphing 

‘ZBOTHLABELS’ 

3D 

Both  numeric  and  alphanumeric  labels  to  be 
drawn  for  higher  level  drawing 

‘ZCLIP’ 

3D 

Clip  in  Z  direction 

‘ZCONSTANT’ 

3D 

To  indicate  that  the  Z  component  does  not  vary 
during  the  drawing  of  any  curve 

‘ZEROAXES’ 

X  and  Y  axes  adjacent  to  boundary  of  display  area 

NOTE:  b  -  is  a  blank  or  space 

*  -  means  not  implemented 
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‘ZLOGARITHMIC’ 

‘ZNEGATIVE’ 

‘ZNUMERIC’ 

‘ZPOSITIVE’ 

‘ZRELATIVE’ 


‘ZREPEAT’ 


‘ZXYb’ 

‘ZYXb’ 

'1  2HOUR’ 

‘1 3WEEK’ 

‘2DCOORDINATES’ 


‘24HOUR’ 

‘3DCOORDINATE’ 


3D  Applies  logarithmic  transform  to  Z  component 

3D  Negative  Z  axis  represents  up  direction  in  3D 
graphics 

3D  Numeric  Z  labels  to  be  drawn  for  high  level  graph¬ 
ing 

3D  Positive  Z  axis  represents  up  direction  in  3D 
graphics 

3D  Z  coordinates  are  to  be  specified  with  respect  to 
the  current  beam/pen  position  X  and  Y  compo¬ 
nents  are  to  be  specified  with  respect  to  the  origin 
of  the  current  coordinate  system 

3D  To  indicate  that  one  set  of  Z  values  is  provided 
which  will  be  reused  for  every  curve  in  higher  level 
graphing 

3D  To  set  the  rotation  application  order  as  indicated 

3D  To  set  the  rotation  application  order  as  indicated 

Twelve  hour  time  axis 
Thirteen  week  time  axis 

3D  To  specify  A  coordinate  terminator  in  which  two 
components  are  listed.  (This  option  is  indepen¬ 
dent  of  the  text  coordinate  options  of  ‘XYCOORDI- 
NATES’  and  ‘XYZCOORDINATES’) 

Twenty  four  time  axis 

3D  To  specify  a  coordinate  terminator  in  which  all 
three  components  are  listed.  (This  option  is  inde¬ 
pendent  of  the  text  coordinate  option  of  ‘XYCOOR- 
DINATES'  and  'XYZCOORDINATES') 


NOTE:  b  -  is  a  blank  or  space 

*'•  means  not  implemented 
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APPENDIX  C 


Option  Name 

‘ANGLE  OF  TEXT’ 

‘ATTENTION  QUEUE  SIZE’* 
‘ATTITUDE’ 

‘BACKGROUND  COLOR’ 

‘BASE  OF  LOGARITHMS’ 

‘BRIGHTNESS’ 

‘CHARACTER’ 

‘COLOR’ 

‘COPY  DELAY’ 

‘DISTANCE’ 

'means  not  implemented 


UPSET  OPTIONS 


Value 

Is  an  angular  value  which  specifies  the  angle  of 
the  text  string  in  relation  of  the  current  X  axis. 
Default  value  is  0. 

An  integer  indicating  the  number  of  words  pro¬ 
vided  in  the  attention  queue.  Default  is  0. 

Is  an  angular  value  which  specifies  the  orienta¬ 
tion  of  the  up  direction  axis  with  the  sides  of  the 
window.  Default  value  is  0.  Meaning  that  the  up 
direction  is  parallel  whth  the  left  and  right  win¬ 
dow  boundaries  and  pointing  towards  the  top  of 
the  window. 

Is  an  integer  which  specifies  the  color  index 
within  the  color  table  for  colored  backgrounds. 
Values  0-7  are  predefined  to  represent  black, 
white,  red,  green,  yellow,  blue,  magenta,  and 
cyan,  respectively.  Default  color  is  black  or 
none. 

Is  a  positive  value  which  specifies  the  base  of 
the  logarithms  used  to  perform  logarithmic  scal¬ 
ing  or  the  character  string  1HE,  denoting  the 
base  of  the  Naperean  logarithms.  Default  base 
is  1 0.  This  option  sets  the  specified  base  along 
each  coordinate  component. 

Is  a  value  between  0  and  100.  percent  indicat¬ 
ing  the  position  in  the  range  of  possible  line 
intensity  settings  from  dimmest  to  brightest. 
Default  brightness  is  60%. 

Is  a  Hollerith  character  which  becomes  the  cur¬ 
rent  system  character.  The  default  system 
character  is  a  star  or  asterisk  (*). 

Is  an  integer  which  specifies  the  color  index 
within  the  color  table.  Values  0-7  are  pre¬ 
defined  to  represent  black,  white,  red,  green, 
yellow,  blue,  magenta,  and  cyan,  respectively. 
Default  color  is  device-dependent. 

Is  a  value  which  indicates  the  number  of  sec¬ 
onds  of  delay  required  during  generation  of  a 
hard  copy.  Default  value  is  device-dependent 
and  is  preset  to  the  value  required  by  the 
selected  device 

Is  a  value  measured  from  the  current  view  plane 
distance  base  specifying  the  position  of  the 
view  (projection)  plane.  The  default  is  0. 
measured  trom  the  view  site. 
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‘FNT  FILE’ 

Is  a  Fortran  file  number  representing  the  file 
containing  the  font  descriptors.  Default  is  zero 
indicating  no  font  file  specified. 

‘FONT  NAME’* 

Is  a  Hollerith  string  indicating  the  desired 
character  font.  Default  is  ‘GCS’  which  is  the 
most  efficient  font 

‘GREYSCALE’ 

Is  a  value  indicating  a  particular  grey  level  for 
terminals  which  support  multiple  grey  scales 
rather  than  colors 

‘GRID  SPECIFICATION’ 

Is  a  value  containing  a  dash  specification  to  be 
used  when  generating  grid  axes.  Default  is  0. 
which  indicates  a  solid  line  should  be  used. 

‘HORIZONTAL  SIZE’ 

Indicates  the  width  of  a  software  character 
position  in  current  user  units.  Default  is  5  vir¬ 
tual  units. 

‘INPUT  FILE’ 

Is  a  Fortran  file  number  indicating  which  file  will 
be  used  to  obtain  graphics  input.  The  default  is 
set  to  the  appropriate  computer-system  depen¬ 
dent  file 

‘LABELbROTATION’ 

Is  the  number  of  angular  units  the  axes  Ibaels 
are  to  be  rotated  around  the  axes. 

'LIBRARY  FILE’ 

Is  a  Fortran  file  number  indicating  which  file 
should  be  used  by  the  GCS  structure  and  seg¬ 
mentation  facilities  as  a  random  work  file. 

Default  is  0.  indicating  no  file  has  been  pro¬ 
vided. 

‘LOWER’ 

Is  a  Hollerith  character  which  will  be  used  by 

GCS  as  the  indication  to  shift  to  lower  case. 

Default  character  is 

‘MARKER  INDEX’ 

Is  an  integer  value  selecting  a  marker/symbol 

Default  marker  symbol  is  0.  indicating  a  point. 

‘ORIENTATION’ 

Is  an  angular  value  indicating  the  display  orien¬ 
tation  of  GCS  created  software  symbols  and 
figures  such  as  software  characters,  polygons, 
and  rectangles.  Default  orientation  is  0 

‘OUTPUT  FILE’ 

Is  a  Fortran  file  number  indicating  which  file  will 
be  used  for  sending  graphics  output  to  the  dis¬ 
play  device.  The  default  is  set  to  the  appropri¬ 
ate  computer  system  dependent  file. 

‘POLYNOMIAL  DEGREE’ 

Specifies  the  degree  of  the  polynomial  to  be 
created  in  calculating  a  least  squares  fit 
through  a  collection  of  points.  Default  value  is 

5. 

‘PRECISION’ 

Specifies  the  number  of  significant  digits  to 
appear  when  displaying  real  numbers.  Default 

means  not  implemented 

value  is  4. 
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‘READFILE’ 

Is  a  Fortran  file  number  indicating  which  file  will 
be  used  to  obtain  non-graphic  input.  The 
default  is  set  to  the  appropriate  computer 
system  dependent  file. 

‘ROTATION’ 

Same  as  ‘ORIENTATION’. 

‘SCALEFACTOR’ 

Specifies  a  scale  to  be  applied  to  GCS-created 
geometric  figures  such  as  polygons  and  rec¬ 
tangles 

‘SCRIPTLEVEL’ 

Is  an  integer  value  indicating  the  scripting  level 
to  be  set  for  textual  output.  Default  value  is  1 . 

■SETDASH’ 

Specifies  the  characteristics  of  the  dashed 
lines  to  be  plotted  by  UPEN.  Default  value  is  56. 

'SIZE' 

Is  a  positive  integer  value  which  sets  hardware 
character  sizes.  Values  of  1  through  4  corres¬ 
pond  to  USET  options  'SMALL',  ‘MEDIUM’, 

'LARGE',  and  'EXTRA  LARGE'  respectively. 

Default  value  is  1  for  'SMALL'  characters. 

‘SLANTANGLE’ 

Is  an  angular  value  indicating  the  amount  of 
slant  from  the  vertical  for  italicized  software 
characters.  Default  value  is  approximately  18 
degrees 

'SPAN  ANGLE’ 

Is  an  angular  value  indicating  the  portion  of  a 
circle  to  be  occupied  by  the  pie  chart.  Default 
value  is  360  degrees. 

'SPECIFICATION  UNITS’ 

Is  a  positive  value  indicating  the  number  of 
specification  units  contained  in  device  space 
for  all  directions  Default  value  is  1000 

'SPEED’ 

Specifies  the  speed  of  the  communication  line 
in  characters  per  second.  Default  value  is 
system  dependent. 

‘START  ANGLE’ 

Is  an  angular  value  indicating  the  starting  posi¬ 
tion  of  the  first  wedge  of  the  pie  chart.  Default 
value  is  0 

‘STRUCTURE  TABLE  SIZE’ 

Is  an  integer  value  indicating  the  number  of 
words  in  the  user  provided  structure  table. 

Default  value  is  1  00 

‘SUBSCRIPT  CHARACTER’ 

Is  a  Hollerith  character  which  will  be  used  to 
decrease  the  scripting  level  by  1  Default 

subscript  character  is  ‘the  display  code  is  a 
pound  sign’. 

•SUPERSCRIPT  CHARACTER’ 

Is  a  Hollerith  character  which  will  be  used  to 
increase  the  scripting  level  by  1.  Default 
superscript  character  is  the  display  code  is  an 
underline  sign’. 

’means  not  implemented 
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‘SZMARKER’ 

Is  a  value  in  current  device  units  which 
specifies  the  size  of  software  generated 
markers.  Default  value  is  device-dependent. 

‘TABHORIZONTAL’ 

Is -an  array  of  10  elements  containing  10  tab 
positions  in  current  device  units.  Default  value 
has  all  tab  stops  set  to  zero. 

‘TABVERTICAL’ 

Is  an  array  of  1 0  elements  containing  1 0  vertical 
tab  positions  in  current  device  units  Default 
value  has  all  tab  stops  set  to  zero. 

'TERMINATOR' 

Is  a  Hollerith  character  which  will  be  used  as 
the  GCS  string  terminator  character.  Default 
character  is  a  backslash. 

‘TICINTERVAL’ 

TICLENGTH’ 

Specifies  the  distance  in  current  user  units  bet¬ 
ween  tic  marks  of  a  UPEN  created  tic  line. 

Default  value  is  1 0. 

‘TICMINUS’ 

Specifies  in  current  units  the  size  of  that  portion 
of  a  tic  mark  which  lies  on  the  clockwise  side  of 
the  tic  line.  Default  value  is  .05  inches. 

‘TICPLUS’ 

Specifies  in  current  units  the  size  of  that  portion 
of  a  tic  mark  which  lies  onthe  clockwise  side  of 
the  tic  line.  Default  value  is  .05  inches. 

‘TICX’ 

Specifies  the  distance  between  tic  marks  or 
grid  lines  along  X  axes.  Default  value  is  0. 
indicating  that  a  ‘nice’  number  should  be 
chosen. 

TICY’ 

Is  the  same  as  ‘TICX’  for  Y  axes. 

■TICZ' 

Is  the  same  as  ‘TICX'  for  Z  axes 

'UPPER' 

Is  a  Hollerith  character  which  will  be  used  by 

GCS  as  the  indication  to  shfit  to  upper  case. 

Default  character  is  ’<’. 

‘VERTICAL  SIZE’ 

Indicate  the  height  of  a  software  character  posi¬ 
tion  in  current  user  units.  Default  value  is  seven 
virtual  units. 

‘WIDTH’ 

Is  a  value  in  current  units  of  the  width  of  a  line. 

Default  value  is  0  indicating  a  thin  line. 

‘WRITE  FILE' 

Is  a  Fortran  file  number  indicating  which  file  will 
be  used  to  generate  non-graphic  output  The 
default  is  set  to  the  appropriate  computer 
system  dependent  file. 

'XBASE  OF  LOGS’ 

Is  a  positive  value  which  specifies  the  base  for 
logarithmic  scaling  along  the  X  component. 

Default  value  is  1 0. 

‘XLABEL’ 

Specifies  the  alphanumeric  label  to  be  dis¬ 
played  along  X  axes.  Default  value  is  ‘X  ’. 

means  not  implemented 
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‘XPERCENT’ 

Is  a  value  specifying  the  portion  of  the  width  of  a 
software  character  position  to  be  occupied  by  a 
character  Default  value  is  .65  indicating  65%  of 
the  width 

‘XROTATION’ 

Is  an  angular  value  indicating  the  amount  of 
rotation  around  the  X  axis  for  UINVOK  structure 
invocations.  Default  value  is  0 

‘XSCALE’ 

Is  the  scale  factor  to  be  applied  along  the  X  axis 
for  UNIVOK  structure  invocations  Default  value 
is  1 . 

•XSIZE’ 

Is  the  size  of  hardware  or  simulated  hardware 
character  positions  in  current  device  units. 
Default  value  is  aevice  =  dependent  and  corres¬ 
ponds  to  ’SMALL’  hardware  character  size. 

‘XSPECIFICATION  UNITS' 

Is  a  positive  value  indicating  the  number  of  X 
specification  units  in  device  space.  Default 
value  is  1  000 

‘YBASE  OF  LOGS’ 

Is  a  positive  value  indicating  the  number  of  X 
specification  units  in  device  space.  Default 
value  is  1 000. 

‘YBASE  OF  LOGS’ 

Is  a  positive  value  which  specifies  the  base  for 
logarithmic  scaling  along  the  Y  component. 
Default  value  is  1  0 

‘YLABEL’ 

Specifies  the  alphanumeric  label  to  be  dis¬ 
played  along  the  Y  axis.  Default  value  is  ‘Y  '. 

‘YPERCENT’ 

Is  a  value  specifying  the  portion  of  the  height  of 
a  software  character  position  to  be  occupied  by 
a  character.  Default  value  is  .65  indicating  65% 
of  the  height 

‘YROTATION’ 

Is  an  angular  value  indicating  the  amount  of 
rotation  around  the  Y  axis  for  UNIVOK  structure 
invocations  Default  value  is  0. 

‘YSCALE’ 

Is  the  scale  factor  to  be  applied  along  the  Y  axis 
for  UNIVOK  structure  invocations  Default  value 
is  1 

‘YSIZE’ 

Is  the  size  of  hardware  or  simulated  hardware 
character  positions  in  current  device  units 
Default  value  is  device-dependent  and  corres¬ 
ponds  to  ‘SMALL’  hardware  character  size. 

‘YSPECIFICATION  UNITS’ 

Is  a  positive  value  indicating  the  number  of  Y 
specification  units  in  device  space.  Default 
value  is  1  000. 

‘ZBASE  OF  LOGS’ 

Is  a  positive  value  which  specifies  the  base  for 
logarithmic  scaling  along  the  Z  component. 
Default  value  Is  1  0. 

means  not  implemented 
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‘ZLABEL’ 

‘ZROTATION’ 

‘ZSCALE’ 


Specifies  the  alphanumeric  label  to  be  dis¬ 
played  along  the  Z  axis.  Default  value  is  'Z 

Is  an  angular  value  indicating  the  amount  of 
rotation  around  the  Z  axis  for  UINVOK  structure 
invocations.  Default  value  is  0. 

Is  the  scale  factor  to  be  applied  along  the  Z  axis 
for  UINVOK  structure  invocations.  Default  value 
is  1. 


‘means  not  implemented 
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APPENDIX  D 


GCS  DEFAULT  CONDITIONS 


This  appendix  addresses  those  options  which  are  present  in  the  Graphics  Status  Area 
as  default  options.  After  a  call  to  Subroutine  USTART,  the  Graphics  Compatibility 
System  is  set  to  the  default  conditions  as  indicated.  The  default  options  can  be  divided 
into  two  groups:  Basic  Plotting  Options  and  High  Level  Plotting  Options 


I.  Default  Basic  Plotting  Options 

Plotting  is  done  in  ‘RECTANGULAR’  and  'ABSOLUTE'  coordinates  on  the  'SYSTEM' 
coordinate  axis.  The  ‘USER’  coordinate  axes  are  identical  to  the  system  axis.  Plotting  is 
done  in  ‘VIRTUAL’  space  with  a  virtual  window  whose  limits  are  from  0  0  to  1 00  0  in  the  X 
direction,  and  from  0.0  to  100  0  in  the  Y  direction.  The  virtual  window  is  mapped  into  a 
display  area  which  is  the  largest  square  area  on  the  device  display  surface.  The  right 
hand  edge  of  the  square  corresponds  to  the  right  edge  of  the  display  surface,  and  the  top 
edge  of  the  square  corresponds  to  the  top  edge  of  the  display  surface. 

Character  output  in  GCS  will  be,  by  default,  in  'HARDWARE'  character  format,  of  type 
‘GOTHIC  and  of  ‘MEDIUM’  size.  If  'SOFTWARE'  characters  are  requested  via  USET  then 
the  default  horizontal  size  is  five  (5.0)  virtual  units,  and  the  default  vertical  size  is  seven 
(7  0)  virtual  units. 

By  default,  angular  units  for  angular  specifications  are  in  ‘DEGREES'.  If  the  user 
switches  to  ‘DEVICE’  space,  then  all  length  or  distance  units  (i.e.  rectangular  coordi¬ 
nates)  are  in  terms  of  ‘INCHES’.  The  default  alphanumeric  margins  are  the  boundaries  of 
the  plotting  surface.  For  alphanumeric  I/O  through  GCS  (i  e  from  UPRINT  or  UREAD), 
the  data  will  be  assumed  to  be  in  TEXT'  mode.  The  alphanumeric  output  defaults  to  the 
‘PLOT’  device  if  possible,  and  any  graphic  output  will  go  to  all  devices  in  a  cluster 
Giaphic  input  is  from  the  primary  input  device;  the  number  of  digits  of  precision  for 
numeric  output  is  four  (4);  and  GCS  detected  errors  are  signalled  as  they  occur 

A  line  which  is  drawn  by  a  subroutine  in  GCS  is  considered  to  consist  of  two  parts;  a  line 
type  and  a  line  terminator.  The  line  type  may  be  solid  (visible),  ticked,  null  (invisible), 
dashed,  or  alphanumeric.  The  line  may  be  terminated  by  an  arrow,  a  back  arrow,  double 
arrows,  a  character,  a  point,  a  symbol,  a  set  of  coordinate  values,  or  nothing  at  all.  The 
default  line  type  in  GCS  is  ‘SOLID’  with  ‘NULL’  termintors  (‘LNULL’).  If  ‘TICLINES’  are 
requested  via  USET  option,  then  the  default  tic  interval  is  ten  (1 0.0)  virtual  units.  It  is  the 
user's  responsibility  to  insure  that  the  tic  interval  is  appropriate  if  he  switches  to 
‘DEVICE’  space  or  alters  the  default  virtual  window  setting  or  the  default  display  area 
setting.  If  ‘DASHLINES’  are  requested,  then  the  default  dash  specification  (56)  will 
result  in  a  dashed  line  which  is  alternately  light  and  dark,  in  icrements  of  approximately 
0.075  inches.  If  a  ‘CHARACTER’  line  terminator  is  requested  but  no  character  is 
specified  by  way  of  Subroutine  UPSET,  then  the  character  asterisk  (*)  is  used  Similarly, 
the  asterisk  is  used  to  compose  the  line  type  if  ‘ALPHANUMERIC’  lines  are  requested. 

For  3D  operations,  the  viewing  environment  is  set  up  to  simulate  a  2D  only  environment. 
The  view  point  is  located  at  (0.,0.,1 50  ),  the  view  site  is  at  (0.,0.,0.)  and  the  view  plane  is 
located  at  the  view  site.  The  system  coordinate  system  is  considered  to  be  ‘RIGHT- 
HANDED’  with  the  ‘ZPOSITIVEAXIS’  representing  up  Note  that  since  the  view  is  down 
the  Z  axis,  the  up  direction  degenerates  to  ‘YPOSITIVE’  The  Z  axis  clipping  planes  are 
150.  (hither  plane)  and  1  0E  +  30  (yon  plane)  with  ‘NOZCLIPPING’. 
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II.  Default  High  Level  Plotting  Options 


For  each  call  to  UPLOT  or  UPLOT1,  the  data  values  which  represent  the  curves  are 
examined,  and  a  ‘NEWSCALE’  is  created.  UAXIS  will  be  invoked  to  create  ‘XYAXES’. 
The  data  values  will  be  examined,  appropriate  limits  for  the  established.  Numeric  labels 
only  will  be  output  for  the  X  axis  and  the  Y  axis.  The  axes  will  be  positioned  at  the  'EDGE' 
of  the  plot  Both  the  X  axis  and  the  Y  axis  will  be  drawn  in  a  linear  coordinate  space.  The 
axis  lines  will  be  ticked.  If  a  time  series  axis  is  plotted  by  invoking  Subroutine  UTAXIS, 
the  default  interval  for  the  X  axis  will  be  ‘DATE’.  No  curves  will  be  fit  to  the  data  values, 
but  if  ‘FITPOLYNOMIAL’  is  requested,  then  subroutine  UPLOT  will  attempt  to  fit  a  fifth 
degree  poynomial  to  the  data. 

III.  Summary 


COORDINATE  SPACE: 
COORDINATE  TYPE: 
COORDINATE  SYSTEM: 
COORDINATE  AXIS: 

‘VIRTUAL’ 

‘ABSOLUTE’ 

‘RECTANGULAR’ 

SYSTEM’ 

VIRTUAL  WINDOW: 

0  0  TO  100.0  X  DIRECTION 

0.0  TO  100.0  Y  DIRECTION 

DISPLAY  AREA. 

Largest  square  area  which  is  right-up  on  the  dis¬ 
play  surface  of  the  device. 

DEVICE  SPACE  UNITS: 

ANGULAR  UNITS. 

‘INCHES’ 

‘DEGREES’ 

LINE  TYPE- 

SYSTEM  CHARACTER: 

TIC  INTERVAL: 

DASH  SPECIFICATION: 

‘LINE’  or  ‘LNULL 
asterisk  (*) 

1 0.0  virtual  units 

56. 

CHARACTER  TYPE. 

CHARACTER  FONT 

CHARACTER  SIZE: 

SOFTWARE  CHARACTER  SIZE. 

‘HARDWARE’ 

‘GOTHIC’ 

‘MEDIUM’ 

5.0  virtual  units  horizontal 

7.0  virtual  units  vertical 

INPUT/OUTPUT  FORMAT: 
ALPHANUMERIC  MARGINS: 
OUTPUT  ROUTE: 

OUTPUT  DISTRIBUTION: 
GRAPHIC  INPUT- 

‘TEXT’ 

Device  display  surface  boundaries 
‘PLOTDEVICE’ 

'ALLDEVICES' 

Primary  input  device 

DIGITS  OF  PRECISION: 

ERROR  HANDLING: 

4 

‘IMMEDIATE  OUTPUT’ 

AXIS  SCALING: 

AXIS  LABELING: 

‘AUTOSCALE’ 

‘XNUMERICLABEL’ 

'YNU  MERIC  LABEL’ 

AXIS  POSITIONING: 

AXIS  TYPE. 

AXIS  EXISTENCE: 

AXIS  COORDINATES: 

‘EDGEAXIS’ 

‘TICAXIS’ 

‘X  YAXF9' 

‘NOLOGARITHMS’ 

TIME  SERIES  AXIS  SCALE: 

‘DATE’ 
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APPENDIX  E 


USET  OPTIONS  BY  CLASS 


Coordinate  Mode 

ABSOLUTE’ 

‘RELATIVE' 

'XABSOLUTE' 

'XRELATIVE' 

‘XYABSOLUTE’ 

Coordinate  Type 

‘RECTANGULAR’ 

'POLAR' 

‘LOGARITHIMC’ 

'YLOGARITHMIC' 

Coordinate  Space 

‘VIRTUAL’ 

'DEVICE' 

Device  Space  Units 

‘INCHES’ 

‘CENTIMETERS’ 

‘FONTUNITS’ 

‘PERCENTUNITS’ 

'RASTERUNITS' 

Angular  Units 

DEGREES’ 

'RADIANS’ 

'PIRADIANS' 

Frame  Composition 

‘INVISIBLE’ 

'VISIBLE' 

Line  Type 


‘INCREMENTAL’ 

'XYRELATIVE' 

‘XZABSOLUTE’ 

'XZRELATIVE’ 

‘LEFTHANDED’ 


‘CYLINDRICAL’ 
‘SPHERICAL’ 
‘XLOGARITHMIC 
‘X  YLOGARITHMIC’ 


'SPECIFIC' 

'DISPLAY' 


‘GRADS' 

'MILS' 


‘RIGHTHANDED' 

'YABSOLUTE' 

'YRELATIVE' 

'YZABSOLUTE' 

'YZRELATIVE' 


‘LOGOBJECT’ 

‘LOGSYSTEM’ 

‘LOGUSER’ 

‘NOLOGARITHMS’ 


‘NOLINE’ 

‘NOMARK’ 

■NNULL' 

•LARROW' 

'LDOUBLEARROW' 

‘MOVE’ 

‘ARROWLINE' 


'ZABSOLUTE' 

'ZRELATIVE' 


‘XYZLOGARITHMIC 

‘XZLOGARITHMIC 

‘YZLOGARITHMIC 

‘ZLOGARITHMIC 


‘LBACKARROW’ 
'LCOORDINATE' 
'NO  LINE’ 

'NO  MARK' 
'DIMENSIONLINE’ 
‘NSYMBOL’ 
‘ANULL’ 


‘LINE’ 

‘DASH’ 

‘POINT’ 

‘TICLINE’ 

‘CHARACTER’ 

'SYMBOL' 

'ALPHANUMERIC' 


‘LNULL’ 

'DNULL' 

‘NPor 

'TNULL' 

‘BACK  ARROWLINE' 
‘COORDINATELINE' 
'NCHA' 


‘DOUBLEARROWLINE’ 


Lines  that  are  drawn  by  GCS  are  composed  on  a  line  type  and  a  line  terminator.  A  large 
number  of  line  types  and  terminators  are  possible.  The  specification  is  composed  by 
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combining  the  first  letter  of  the  line  type  with  the  name  of  the  terminator.  The  following 
tables  illustrate  the  possible  linetypes  and  terminators: 


LINE  TYPE 


FIRST  LETTER 


LINE 

DASH 

ALPHANUMERIC 
NULL  (INVISIBLE) 
TICLINE 


L 

D 

A 

N 

T 


Line  Terminators 

NULL  (NO  TERMINATORS) 

CHARACTER 

SYMBOL 

COORDINATE 

POINT 

ARROW 

BACKARROW 

DOUBLEARROW 

Line  Repeatability 

‘UNINTERRUPTED’ 

‘GAPPED’ 

Curve  Approximation 

‘CONTINUOUS’ 

‘SEGMENTED’ 

Biink  Rate 

‘NOBLINK’ 

‘FASTBLINK’ 

‘SLOWBLINK’ 

Color 

‘WHITE’  ‘BLUE’ 

‘BLACK’  ‘RED’ 

‘GREEN’  ‘MAGENTA’ 

‘CYAN’  ‘YELLOW’ 

Intensity 

DIM’ 

‘BRIGHT’ 

Coordinate  Axis 

‘SYSTEMAXIS’ 

‘USERAXIS’ 

Coordinate  Axis  Composition 

‘WORKINGAXIS’ 

‘REFERENCEAXIS’ 
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Character  Format 


‘GOTHIC’ 

‘UPPERCASE’ 

‘ITALIC’ 

‘LOWERCASE’ 

Character  Size 

‘SMALL’ 

‘MEDIUM’ 

‘LARGE’ 

‘EXTRALARGE’ 

Device  Routing 

‘PLOTDEVICE’ 

‘MESSAGEDEVICE’ 

Device  Selection 

‘ALLDEVICES’ 

‘PRIMARYDEVICE’ 

‘ALTERNATEDEVICE’ 

Graphic  Input 

‘CURSORS’ 

‘KEYBOARD’ 

‘LIGHTPEN’ 

‘JOYSTICK’ 

‘BALL’ 

‘MOUSE’ 

Character  Type 

‘HARDWARE’ 

‘SOFTWARE’ 

Error  Conditions 

‘ERROR  OUTPUT’  ‘DUMP’  ‘NOABORT’ 

‘SUPPRESSERRORS’  ‘ABEND’  ‘NODUMP’ 

‘DEFERERRORS’  ‘ABORT’  ‘NOTRAIL’ 


‘NOECHO’ 

‘ECHO’ 

‘ORMODE’ 

‘ANDMODE’ 

‘PROCEED’ 

‘WAIT’ 


Structure  Definition 

‘BUILD’ 

‘NOBUILD’ 

Structure  Building 

‘EXECUTE’ 

‘NOEXECUTE’ 

Structure  Fiie  Manipulation 
‘APPEND’  ‘REPLACE’ 
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‘TRAIL’ 


‘IGNORE’ 

‘MULTIPLE’ 


‘REWIND’ 

‘SINGLE’ 


Structure  Editing 

‘COMPRESSED’ 

‘EXPANDED’ 

Axis  Scaling 

‘AUTOSCALE’ 

‘FULLSCALE’ 

‘OWNSCALE’ 

Axis  Scale  Existence 

‘NEWSCALE’ 

‘OLDSCALE’ 

Segment  Pickabiiity 

‘DESENSITIZE’ 

‘SENSITIZE’ 


Axis  Existence 

‘XYAXES’  'NOAXES’ 

'XAXIS'  ‘XYZAXES’ 

‘YAXIS’  ‘XZAXES’ 

‘YZAXES’  ‘ZAXIS’ 


Axis  Positioning 

‘EDGEAXIS’ 

‘ZEROAXIS’ 

‘PENAXIS’ 

‘XEDGEYZEROAXIS’ 

‘XZEROYEDGEAXIS’ 

Numeric  Labels 

‘BESTFORMAT’ 

‘EFORMAT’ 

‘FORMAT’ 

‘GFORMAT’ 


‘YEDGEXZEROAXIS’ 

‘YZEROXEDGEAXIS’ 


Label  Positioning 

‘NEGATIVESIDE’  ‘PERPENDICULARLABELS’ 

‘PARALLELLABELS’  'POSITIVESIDE' 

‘XYPLANE’  ‘XZPLANE’ 

‘YPLANE’ 


Axis  Type 

‘NOLOGARITHMS’  ‘XYLOGARITHM’ 

‘XLOGARITHM’  ‘XZLOGARITHM’ 
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‘YZLOGARITHM’ 


‘YLOGARITHM’ 

‘ZLOGARITHM’ 

‘XYZLOGARITHM’ 

‘LOGARITHMS’ 

X  Axis  Labels 

‘XNUMERIC’ 

‘XALPHANU  MERIC’ 

‘XBOTHLABELS’ 

‘NOXLABEL’ 

Y  Axis  Labels 

‘YNUMERIC’ 

‘YALPHANUMERIC’ 

‘NOYLABEL’ 

‘YBOTHLABELS’ 

Z  Axis  Label 

‘ZNUMERIC’ 

‘ZALPHANUMERIC’ 

‘NOZLABEL’ 

‘ZBOTHLABELS’ 


Axis  Type 

‘TICAXIS’ 

‘PLAINAXIS’ 

‘GRIDAXIS’ 

Three  Dimensional  Viewporting 

‘SITEPOINT’ 

‘VIEWPOINT’ 


Windowing 


‘CWINDOWING’ 

‘NOWINDOWING’ 

'RWINDOWINE' 


Text  Output 

‘NOCENTER’ 

‘ACENTER’ 
‘NOSCRIPT’ 
‘XYZCOORDI  NATES’ 
‘XYCOORDINATES’ 
‘2DCOORDI  NATES’ 


‘SUBSCRIPT’ 

‘NOSUBSCRIPTING’ 

‘SUPERSCRIPT’ 

‘INTEGER’ 

‘TEXT’ 

'3DCOORDI  NATES' 


‘HORIZONTAL’ 

‘UPPERCASE’ 

‘VERTICAL’ 

‘REAL’ 


Menuing  Option 

‘STANDARDMENU’ 

‘EXTENDEDMENU’ 


Origin  Inclusion 
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‘NOORIGIN’ 

•ORIGIN 

‘PENORIGIN 


Device  Space  Clipping 

‘NOZCLIPPING’ 

‘ZCLIP’ 


High-Level  Plotting  Option 

‘NONUNIFORM’ 

‘UNIFORM’ 

Coordinate  Repeat  Option 

‘NOREPEAT’  ‘NOZREPEAT’  ‘YCONSTANT’ 

'NOXREPEAT'  ‘XCONSTANT’  ‘YREPEAT’ 

‘NOYREPEAT’  ‘XREPEAT’  ‘ZCONSTANT’ 


Transformation  Type 

’  } 

‘PERSPECTIVE’ 

‘ORTHOGONAL’ 

Axis  Orientation 

‘XNEGATIVE’  ‘YNEGATIVE’  ‘ZNEGATIVE’ 

‘XPOSITIVE  ‘YPOSITIVE’  ‘ZPOSITIVE’ 


Three  Dimension  Viewing 

‘XYVIEW’  ‘XZVIEW’ 

‘XYZVIEW’  ‘YZVIEW’ 

Rotation  Application  Order 


‘XYZ’  ‘YZX’ 

‘XZY’  ‘ZXY’ 

‘YXZ’  ‘ZYX’ 


Time  Axis  Scaling 

1 2Hour  ‘YEARS’  ‘DATE’ 

1 3Week  ‘WEEKDAYS’  ‘MINUTES’ 

24Hour  ‘DAYS’  ‘HOURS’ 
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‘ZREPEAT’ 


‘SECONDS’ 

‘QUARTERS’ 

‘PERIODIC’ 
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UQUERY  OPTIONS 


Type 

Query  Name 

USET 

‘ABUTTING’ 

USET 

‘ACENTERING’ 

USET 

‘ADJUSTMENT’ 

3D 

USET 

‘ANGULARUNITS 

USET 

‘ANGLE  OF  TEXT' 

UPSET 

‘ASPECTRATIO’ 

3D 

UPSET 

‘ATTENTION  QUEUE  SIZE' 

UPSET 

‘BACKGROUND  COLOR’ 

USET 

‘BLENDMODE'* 

USET 

‘BLINKRATE’ 

UPSET 

‘BRIGHTNESS’ 

USET 

BUILD’ 

3D 

UPSET 

‘CHARACTER’ 

USET 

‘CLIPPING’ 

USET 

‘COLOR’ 

UPSET 

‘COPY  DELAY' 

UPSET 

‘CSPACING’ 

USET 

’CURVE’ 

UPSET 

‘DASH’ 

USET 

‘DESCRIPTION’ 

USET 

‘DETECTABILITY’ 

USET 

‘DIMENSION’ 

3D 

UPSET 

‘DISTANCE’ 

3D 

USET 

‘EDIT’ 

3D 

USET 

‘ERRORMODE’ 

USET 

’EXECUTE’ 

3D 

USET 

‘EXISTENCE’ 

UPSET 

FACTOR’ 

USET 

‘FITMODE’ 

Returns  (Default  In  Parentheses) 

Page  abutting  mode  (’NONABUTTING') 

Alphanumeric  centering  (‘NOCENTERING’) 

Axis  view  adjustment  option  (plane  aJfe  plotted  on 
view  port  or  viewed  from  current  view  point) 
(‘XYZVIEW’) 

Current  user  angular  units  (‘DEGREES') 

Current  angle  of  text  output  id.) 

Display  Surface  aspect  ratio 

i/V  i*:y 

Attention  queue  size  (1 00.) 

Background  color  index  (Black  =  0.) 

‘  -M  . .  :  *..i 

Color  Blending  mode  (‘SUBTRACTIVE’) 

Blink  rate  CNOBLINK  ) 

Display  intensity  (60%) 

Structure  build  mode  flag  (‘NOBUILD’) 

Current  system  character  as  Hollerith  string  (*) 

Device  space  clipping  flag  (‘NOCLIP’  ‘CLIP’  or 
INVERTED’) 

Current  color  index  (device  dependent) 

Copy  delay  time  (device  dependent) 

Character  spacing  mode  (‘HORIZONTAL’) 

Current  curve  approximation  mode  (‘CONTINUOUS’) 

Numeric  value  corresponding  to  current  dashline 
specification  (56.) 

Current  axis  option  (‘TICAXES’) 

Detectability  of  new  segments  (  DESENSITIZED’) 

2D  or  3D  coordinate  terminator  switch 
(‘2DCOORD I  NATES’) 

Distance  from  viewport  to  screen  plane  (1  50.) 

Data  structure  edit  mode  (’COMPRESS’) 

Error  presentation  (ERROR) 

Structure  building  visability  (‘EXECUTE’) 

Current  axis  existence  option  (‘XYZAXES’) 

Scale  factor  for  GCS  created  software  symbols  (1  ) 
Curve  fitting  mode  for  autoplotting  (’NOFITTING’) 
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USET 

'FNAMING  MODE 

UPSET 

FNTFILE  NUMBER’* 

UPSET 

FONT  NAME’* 

USET 

FORMAT' 

USET 

’GAPMODE’ 

UPSET 

’GREYSCALE' 

UPSET 

GRID' 

3D 

USET 

‘HANDEDNESS’ 

3D 

UPSET 

‘HARDWARE' 

UPSET 

HORIZONTAL’ 

UPSET 

'  I 

’INFILE’ 

USET 

‘INPUT’ 

USET 

‘ITALICIZATION' 

UPSET 

'LABELANGLE’ 

USET 

‘LETTERTYPE' 

UPSET 

'LEVEL’ 

3D 

UPSET 

’LIBRARY' 

3D 

UPSET 

’LIMIT' 

3D 

USET 

‘LINEOPTION 

UPSET 

'LOWERCASE 

USET 

LOGARITHMIC’ 

3D 

USET 

‘LOGTIME  OF  APPLICATION 

USET 

'LOGTYPE' 

3D 

USET 

’MAPPINGTYPE’ 

3D 

USET 

'MENUTYPE’ 

3D 

USET 

‘MERGE' 

3D 

USET 

'MESSAGEDEVICE' 

USET 

'MODE' 

USET 

'NUMERIC' 

3D 

USET 

'ORDER’ 

3D 

Frame  naming  mode  CFNAME’) 

Font  file  number  (0.) 

Font  name  (‘GCS’) 

Text  number  format  for  numeric  labelling 
{'BESTFORMAT') 

Gapped  line  mode  CUINTERRUPTED') 

Numeric  valve  indicating  current  grey  level  (device 
dependent) 

Numeric  value  indicating  grid  axis  type  option  (0  ) 

Left  or  right  handed  coordinate  system 
{'RIGHTHANDED') 

Current  hardware  character  size  (‘SMALL',  device 
dependent) 

Current  horizontal  software  character  position  size 
(5.) 

Graphics  input  file  designation  (computer  system 
dependent) 

Graphics  input  device  medium 

Italicization  mode  {'NOITALICS ) 

Label  angle  around  perpendicular  (0.) 

Character  type  (  HARDWARE1) 

Subscript/superscript  spacing  level  (1.) 

Data  structure  library  file  mode  (0.) 

Number  of  errors  before  automatic  stop.  0  means  no 
limit  (0.) 

Current  line  option  setting  CLNULL') 

Lowercase  shift  character  as  Hollerith  string  ('>') 

Axes  selected  for  logarithmic  transform  (logarithmic 
transform  switch)  ('NOLOGSCALING’) 

Time  of  application  of  logarithmic  scaling 
{ LOGSYSTEM  COORDINATES’) 

Flag  indicating  when  logarithmic  scaling  performed 
('LOGSYSTEM',  ’LOGUSER5,  ’LOGOBJECT ) 

3D  to  2D  mapping  type  ('PERSPECTIVE') 

Menu  board  type  (’STANDARD’) 

Structure  merge  mode  switch  (  IGNORE’) 

Destination  of  alphanumeric  I/O  (‘PLOTDEVICE’) 

Current  coordinate  mode  (’ABSOLUTE  ) 

Numeric  labels  parallel  or  perpendicular  to  axis 
('PARALLEL') 

3D  coordinate  system  rotation  application  order 
CZYX') 
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UPSET 

‘ORIENTATION’ 

USET 

‘ORIGIN’ 

UPSET 

'OUTFILE’ 

USET 

‘OUTPUTDEVICE' 

USET 

'PLANE' 

3D 

USET 

'PLOTSCALE' 

UPSET 

'POLYNOMIALDEGREE' 

USET 

‘POSITION1 

3D 

UPSET 

‘PRECISION' 

USET 

‘PROJECTION  TYPE 

UPSET 

'READ  FILE' 

USET 

‘REPEAT' 

3D 

USET 

‘REWIND’ 

3D 

USET 

SCALE' 

USET 

‘SCRIPT1 

3D 

USET 

‘SECURITY  LEVEL' 

USET 

'SENSITIVITY' 

3D 

USET 

‘SIDE 

3D 

USET 

‘SIZE' 

UPSET 

‘SLANT' 

3D 

USET 

‘SPACE' 

UPSET 

‘SPAN’ 

3D 

UPSET 

'START' 

3D 

USET 

‘STOP’ 

USET 

'STORAGEMODE' 

UPSET 

STRUCTURE  LIMIT' 

UPSET 

'SUBSCRIPTCHARACTER' 

3D 

UPSET 

‘SUPERSCRIPTCHARACTER’ 

3D 

UPSET 

•SYMBOL  INDEX' 

USET 

'SYSTEM' 

UPSET 

‘TABHORIZONTAL' 

UPSET 

‘T  ABVERTICAL’ 

UPSET 

‘TERMINATOR’ 

Angular  orientation  of  display  of  GCS  created 
symbols  (0.) 

Forced  origin  switch  for  axis  scaling  ('ORIGIN') 

File  number  of  graphics  output  file  (computer  system 
dependent) 

Graphical  output  destination  device  (‘ALLDEVICES') 
Axis  label  plane  (  XYPLANE  ) 

Scale  option  CNEWSCALE') 

Current  degree  of  polynominal  fit  for  curve  fitting  (5.) 

Current  axes  positioning  CEDGEAXES') 

Number  of  digits  of  precision  to  be  displayed  for  real 
numbers.  (4.) 

Type  of  projection  CPERSEPCTIVE ) 

File  designator  for  non-graphic  input  (computer 
system  dependent) 

Data  structure  invocation  option  ('SINGLE'  or 
'REPEAT') 

Structure  file  rewind  mode  ('REWIND') 

Axis  scale  option  ('AUTOSCALE') 

Subscript/superscript  control  (‘NOSCRIPT') 

Control  of  security  banners  ('UNSECURED') 

Light  pen  sensitivity  switch  (’DESENSITIZE  ) 

Side  of  axes  on  which  labels  will  appear  (  NEGATIVE') 

Hardware  character  size  ('SMALL') 

Software  character  italic  slant  angle  (1  8  degrees) 

Coordinate  space  ('VIRTUAL') 

Angular  span  for  pie  charts  (360.  degrees) 

Pie  chart  starting  angle  (0.) 

Error  stopping  control  ('NOABORT') 

Segment/Frame  retention  mode  (‘RETAINED’) 

Maximum  number  of  structures  which  can  be  defined 
(100) 

Current  subscript  shift  character 
Current  superscript  shift  character 
Choice  of  marker  (0.) 

Current  coordinate  system  ('SYSTEM') 

Location  of  current  horizontal  tab  stop  (1  0.) 

Location  of  current  vertical  tab  stop  (1 0.) 

GCS  string  termination  character 
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USET 

UPSET 

UPSET 

UPSET 

UPSET 

UPSET 

UPSET 

UPSET 

USET 

USET 

USET 

USET 

USET 

UPSET 

USET 

UPSET 

USET 

USET 

UPSET 

USET 

UPSET 

UPSET 

USET 

USET 

UPSET 

USET 

UPSET 

UPSET 

UPSET 

USET 

UPSET 


'TEXT' 

'TICINTERVAL' 

IN  ». 

'TICLENGTH' 

'TICMINUS' 

‘TlCPLUS’ 

TICX' 

•o*  ‘ 

TICY 

‘TICZ*  3D 

,  f  'TIME1 
'TYPE1 

'UNIFORM'  3D 

UNITS' 

UPAXIS'  3D 

j  /  * 

‘UPPERCASE’ 

'USER' 

‘VERTICAL’  3D 

'VIEWPORT' 

'VISIBILITY' 

WIDTH  OF  LINES'  3D 

‘WINDOW’ 

‘WRITE  FILE’ 

'XBASE' 

‘XLABEL1 

‘XLOGARITHMIC 

'XPERCENTAGE  OF  CHARACTER 
SPACE' 

'XREPETITION  MODE' 

'XROTATION 

‘XSCALING’ 

'XSPECIFICATION  UNIT’ 

•XSIZE' 

‘XTITLE’ 


Textual  I/O  mode  ('TEXT') 

Length  of  UPEN  ticintervals  (1  0  ) 

Length  of  UPEN  ticintervals  (1 0.) 

Clockwise  tic  mark  size  (0.05) 

Counter-clockwise  tick  mark  size  (0.05) 

X  axis  tic  interval  (0.) 

Y  axis  tic  interval  (0.) 

Z  axis  tic  interval  (0  ) 

Time  series  plotting  period  {'DATES') 

Type  of  coordinates  (‘RECTANGULAR) 

High  level  plotting  option  ('NONUNIFORM') 

Device  space  units  (INCHES') 

Coordinate  system  viewport  vertical  axis 
OZPOSITIVE') 

Uppercase  shift  character  as  Hollirith  string  ('<’) 

User  coordinate  system  switch 

Vertical  software  character  position  switch 

Viewport  distance  base  switch  ('SITE') 

Framed/segment  creation  visibility  mode  ('VISIBLE') 

Width  of  lines  (0  ) 

Window  type  (  NOWINDOW’) 

Non-graphic  alphanumeric  output  file  (Computer 
system  dependent) 

Base  of  log  scaling  along  x-component  (real  number 
or  string  'E  )  (1  0.) 

X  axis  labelling  option  (‘XNUMERICLABEL') 

X  axis  linearity  option 

Portion  of  horizontal  character  space  occupied  by 
character  (0  65) 

X  component  repetition  mode  for  plotting 
0NOXREPEAT') 

Rotation  factor  around  X  axis  for  structure  invocation 

(0.) 

Scaling  factor  along  X  axis  for  structure  invocation 
(1.) 

Number  of  XSPECIFICATION  unts  in  device  space 
(1000.) 

Horizontal  hardware  character  position  size  (device 
dependent) 

X  axis  alphanumeric  label  ('X') 
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UPSET 

‘YBASE’ 

3D 

Base  of  log  scaling  along  Y-component  (real  number 
or  string  ‘E’)  (1 0.) 

USET 

‘YLABEL' 

Y  axis  labelling  option  (‘YNUMERICLABELS’) 

USET 

‘YLOGARITHMIC’ 

Y  axis  linearity  option 

UPSET 

‘YPERCENTAGE  OF  CHARACTER 
SPACE’ 

Portion  of  vertical  character  space  occupied  by 
character  (0  65) 

USET 

‘YREPETITION’ 

Y  component  repetition  made  for  plotting 
(‘NOYREPEAT’) 

UPSET 

‘YROTATION’ 

Rotation  factor  around  Y  axis  for  structure  invocation 
(0.) 

UPSET 

‘YSCALING’ 

Scaling  factor  along  Y  axis  for  structure  invocation 
(1.) 

UPSET 

‘YSIZE’ 

Vertical  size  for  hardware  characters  (device 
dependent) 

UPSET 

‘YSPECIFICATIONUNITS’ 

Number  of  Y  specification  units  in  device  space 
(1000.) 

UPSET 

‘YTITLE’ 

Y  axis  alphanumeric  label 

UPSET 

‘ZBASE’ 

3D 

Base  of  log  scaling  along  Z  axis  (1 0.) 

USET 

‘ZCLIP’ 

Hither/yon  clipping  mode  (‘NOZCLIPPING’) 

USET 

'ZLABEL' 

3D 

Z  axis  label  option  (‘ZNUMERICLABELS’) 

USET 

‘ZREPETITION  MODE’ 

Z  component  repetition  mode  for  plotting 
(‘NOZREPEAT’) 

UPSET 

‘ZROTATION’ 

Rotation  factor  around  Z  axis  for  structure  invocation 
(0) 

UPSET 

‘ZSCALING’ 

Scaling  factor  along  Z  axis  for  structure  invocation 
(1.) 

UPSET 

‘ZSPECIFICATIONU  NITS’ 

Number  of  Z  specification  units  in  device  space 
(1000.) 

UPSET 

‘ZTITLE’ 

3D 

Z  axis  title 

UPSET 

‘ZVALUE’ 

3D 

Numeric  default  Z-value  for  2D  coordinates  (0.) 
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APPENDIX  G 


GCS  ERROR  CODES 


The  following  is  a  list  of  the  currently  defined  error  codes  in  GCS: 

01  —  Invalid  key  word  specification  to  USET. 

02  —  Invalid  key  word  specification  to  UPSET 
03  —  No  plot  files  found. 

04  —  Invalid  option  for  UPRNT1. 

05  —  Invalid  UDOIT  system. 

06  —  Invalid  view  port  boundaries. 

07  —  UFORMT  —  Invalid  Display  Surface  Format. 

08  —  Invoke  font  specification. 

09  —  Invalid  UINPUT  option 

10  —  UMARGN  argument  list  out  of  order/Boundary  specification  invalid. 

1 1  —  UMARGN  boundary  outside  of  physical  device  boundary. 

12  —  UWINDO  argument  list  out  of  order/Boundary  specifications  invalid. 

13  —  UDAREA  argument  list  out  of  order/Boundary  specifications  invalid. 

14  —  UDAREA  boundary  outside  of  physical  device  boundary. 

15  —  UCLIP  invalid  argument  list. 

16  —  UCLIP  boundary  overlap  error. 

17  —  UDIMEN  maximum  boundary  specification  invalid. 

18  -  UAXIS  argument  list  XMIN  GT.XMAX  and/or  YMIN  ,GT.  YMAX. 

19  —  UDAREA  provided  to  UAXIS  too  small  for  requested  options. 

20  —  UPSET  —  invalid  tic  interval  Value  LE.zero  specified. 

21  —  UPSET  —  invalid  scale  factor.  Value  must  not  be  equal  to  zero. 

22  —  UPSET  —  invalid  software  character  size.  Value  must  not  be  equal  to  zero. 

23  —  UPSET  —  invalid  digits  of  precision.  Precision  must  be  greater  than  zero. 

24  —  UPSET  —  attempt  to  set  zero  or  negative  scripting  —  level. 

25  —  UPSET  —  Invalid  light  pen  correlation  value.  Value  must  be.GT.zero. 

26  —  UPSET  —  Invalid  transmission  speed.  Value  must  be  .GT.zero. 

27  —  UPSET  —  Invalid  Library  file  code.  File  codes  must  be  in  range  1  to  99. 

28  —  UPSET  —  Invalid  error  limit  Value  must  be  greater  than  zero. 

29  —  UPSET  —  Invalid  error  limit.  Value  must  be  greater  than  zero. 

30  -  UFRAME/UFREND  frame  table  full. 

31  —  Failure  to  call  UFREND  for  previous  occurrence  of  same  frame. 

32  —  Failure  to  call  UFREND  for  another  named  frame. 

33  —  UFREND  called  without  any  frame  active. 

34  —  UFREND  call  not  for  currently  active  frame 

35  —  USHOW/UNSHOW  called  for  undefined  frame. 

36  -  USHOW/UNSHOW  called  while  in  frame  build  status. 

50  —  PLOT  —  Constant  or  delta  X  or  Y  values  illegal  for  automatic  curve  fitting. 

51  —  Insufficient  data  points  for  desired  fit. 

52  —  Input  data  points  exceed  fit  capacity. 

53  —  Input  data  out  of  order  or  non  functional  relationship. 

54  —  Insufficient  array  space  to  return  fitted  results. 

55  —  Invalid  trend  adjustment  factor. 

56  —  Invalid  polynomial  degree  for  polynomial  fit. 

57  —  Invalid  number  of  previous  periods  for  moving  average  fit. 

60  —  Attempt  to  build  a  structure  in  frame  mode. 

61  —  Nested  structure  call  stack  overflow. 

64  —  Attempt  to  redefine  existing  structure. 

65  —  Structure  table  overflow. 

66  —  Attempt  to  activate  a  structure  while  another  is  still  active. 

67  —  Structure  termination  without  active  structure. 

68  —  Structure  termination  not  for  current  structure. 
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69  —  Attempt  to  execute  an  undefined  structure. 

70  —  Recursive  structure  build  call. 

71  —  Invalid  number  of  items  for  UREAD/UINPUT. 

72  —  Attempted  input  operation  from  batch  device. 

80  —  Attempt  to  create  a  secondary  axis  scale  of  zero. 

81  —  UAXIS  —  pen  position  outside  of  UDAREA  in  'PENAXES'. 

82  —  Attempt  to  plot  log  with  window  bound  .LE.  0.0 

83  -  Attempt  to  move  to  apply  log  scaling  to  coordinate  whose  value  is  zero 

84  —  Log  plotting  in  device  space  not  allowed. 

85  -  UAXIS  -  AXIS  choice  requires  0  to  1  within  range  of  X  and/or  Y  AXIS. 

86  —  ULINE/U3LINE  —  Invalid  number  of  points. 

91  _  UAPEND  found  zero  length  string.  Terminator  placed  in  first  character  position. 

92  —  UWAIT  —  Negative  time  period  specified. 

93  —  UQUERY —  Invalid  option  specification. 

94  —  UCOLOR  —  Invalid  color  index. 

95  —  UCOLOR  —  Duplicate  color  component. 

96  —  UCOLOR  —  Duplicate  color  component. 

97  —  UCOLOR  —  Invalid  color  name. 

98  —  UCOLOR  —  Invalid  color  component  value. 

99  —  UCOLOR  —  Colinear  with  line. 

101  —  UHISTO  —  Insufficient  points. 

I  02  —  UHISTO  —  Invlid  number  of  bars. 

103  —  UHISTO  —  Unreasonable  window  for  OWNSCALE. 

104  —  UHISTO  —  Insufficient  UDAREA  for  options  specified. 

110  —  Invalid  number  of  points  for  UPIE. 

Ill—  Invalid  data  value  for  UPIE 

112  —  Invalid  max  label  size  for  UPIE. 

113  —  Insufficient  room  for  UPIE  display. 

I I  4  -  UPIE  -  ABSfStarting  Angle  >  =  ABS  (Ending  Angle). 

115  —  UPIE  —  Too  many  labels  outside  of  pie. 

1  20  —  USCATR  —  Insufficient  points  specified. 

1  21  —  USCATR  —  Invalid  limits  for  logarithmic  scatter  diagram. 

1  22  —  USCATR  —  UDAREA  too  small  for  specified  options. 

130  —  UBAR  —  Invalid  number  of  points. 

131  —  UBAR  —  Invalid  label  size. 

132  —  UBAR  —  Invalid  data  value. 

133  —  UBAR  —  Insufficient  UDAREA  for  options  specified. 

140  —  UCHART  —  Invalid  number  of  points. 

141  —  UCHART  —  Invalid  label  size 

1  42  —  UCHART  —  Invalid  number  of  bars. 

143  —  UCHART  —  UDAREA  too  small  for  specified  options. 

150  —  UTAXIS  —  UDAREA  too  small  for  specified  options. 

160  —  UTILTY  —  Invalid  action. 

161  —  UTILTY  —  Save  structure  not  found. 

162  —  UTILTY  —  Utility  operation  on  structure  work  file. 

164  —  UREPRO  —  Invalid  pseudo-device  file  number 

165  —  UREPRO  —  Invalid  pseudo-device  file  format. 

166  —  UREPRO  —  Read  error  on  pseudo-device  file. 

167  —  UREPRO  —  Invalid  pseudo-device  command. 

168  —  UREPRO  —  End-of-file  within  pseudo-device  command. 

169  —  UREPRO  —  Open  segment  of  UREPRO  invocation. 

190  —  UVIEW  —  Viewpoint  specified  same  as  view  site. 

191  —  UVWPRT  —  Aperature  specified  negative  or  zero  in  some  dimension 

192  —  UVWPRT  —  Viewport  behind  viewer. 

193  —  Attempt  to  draw  through  viewpoint 

194  —  Hither  plane  behind  or  at  viewpoint. 
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In  accordance  with  letter  from  DAEN-RDC,  DAEN-ASI  dated 
22  July  1977,  Subject:  Facsimile  Catalog  Cards  for 
Laboratory  Technical  Publications,  a  facsimile: catalog 
card  in  Library  of  Congress  MARC  format  is  reproduced 
below. 
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Westinghouse  Word  Processing  Center,  Pittsburgh. 

Primer  on  computer  graphics  programming  /  by  Westinghouse 
Word  Processing  Center,  Pittsburgh,  Pa.  Vicksburg,  Miss.  : 

U.  S.  Waterways  Experiment  Station  ;  Springfield,  Va.  : 
available  from  National  Technical  Information  Service,  1979. 

v,  [201]  p.  :  ill.  ;  27  cm.  (Miscellaneous  paper  -  U.  S. 
Army  Engineer  Waterways  Experiment  Station  ;  0-79-4) 

Prepared  for  Office,  Chief  of  Engineers,  U.  S.  Army,  Wash¬ 
ington,  D.  C.,  under  Contract  No.  DACW39-78-M-2676. 

1.  Computer  graphics..  2..  Computer  programming.  3.  Graphics 
Compatibility  System.  I.  United  States.  Army.  Corps  of 
Engineers.  II.  Series:  United  States.  Waterways  Experiment 
Station,  Vicksburg,  Miss.  Miscellaneous  paper  ;  0-79-4. 
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WATERWAYS  EXPERIMENT  STATION 
REPORTS  PUBLISHED  ON  THE 
GRAPHICS  COMPATIBILITY  SYSTEM 


Title 


Miscellaneous  Paper  0-79-1  Host-Computer  Implementation  Guidelines  for  the  Three- 

Dimensional  Graphics  Compatibility  System  (GCS) 

Miscellaneous  Paper  0-79-2  Device  Implementation  Guidelines  for  the  the  Three- 

Dimensional  Graphics  Compatibility  System  (GCS) 


Miscellaneous  Paper  0-79-3  Raster  Graphics  Extensions  to  the  Graphics  Compatibility 

System  (GCS) 


Miscellaneous  Paper  0-79-4  Primer  on  Computer  Graphics  Programming 

Miscellaneous  Paper  0-79-5  Graphics  Compatibility  System  (GCS)  Programmer’s 

Reference  Manual 


Date 

Mar  1979 

Mar  1979 

Mar  1979 

Oct  1979 
Oct  1979 


